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FOREWORD 


The portable and complete meteorological data processing system 
described herein provides user-ready hardcopy in the field, essentially 
simultaneously at the time and place of the ascent of a conventional 
radiosonde balloon. Its development has been an exciting application of 
both the automatic meteorological data processing concepts generated 
over the years at the University of Utah, 'and of the portable computing 
power now available through recent microprocessor technology. 

Acknowledgements are due several undergraduate electrical engineer- 
ing students, who produced UMET-1 . Much of the preliminary work which 
established feasibility was done by Daniel G. Schmidt before his gradua- 
tion in June 1981. Anthony C. Barkans during his senior year designed 
the hardware and made the software innovations necessary to adapt the 
available Motorola 6809 FORTRAN capability to this real-time applica- 
tion. His simple masking technique for automatic synchronizing to the 
biphase serial input signal, his hardware approach to synchronizing to 
the 100-bit input record from the TRADAT receiver system in order to 
conserve computing time, and his ROM boa^d modification to provide an 
economical two-page memory map are among the measures taken to produce a 
working system. A student associate, Bijan Yadegar, provided valuable 
assistance, particularly in programming MONITOR, and in implementing the 
ROM bank-switching modification. Tony Henderson designed the punched 
paper tape reader interface as part of his senior thesis project. The 
project team is grateful for the "extra mile" afforded by Clint Bauer of 
Motorola Semiconductor Products at times of special need for equipment 
and information. Finally, Chris L. Burks contributed considerable time 


and effort in documenting the project, following the intensive and Long 
hours of debugging and hardware changes conducted by his predecessors in 
the final weeks before the first successful complete test runs of the 
system. 

Gratitude is most sincerely expressed to W. W. West, R. V. Snyder, 
and their associates at NASA Wallops Flight Center for their support and 
cooperation, and to the staff of the Electrical Engineering Department 
at the University of Utah for their excellent service in support of the 
project . 

As with most "originals", tempting improvements and further 
advances are obvious; nevertheless, it is felt that UMET-1 represents a 
significant step forward in meteorological operations capability. 
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1.0 INTRODUCTION 


UMET-l is a microprocessor-based portable system for automatic 
real-time processing of flight data transmitted from the standard 
RAWINSONDE upper atmosphere meteorological balloonsonde . This report 
describes the first "target system," delivered for initial operational 
use. This first system is designed to receive data from a mobile track- 
ing and telemetry receiving system (TRADAT) , as the balloonsonde ascends 
to apogee. UMET-l automatically processes the data in real-time, and 
produces, after balloon-burst, user-ready hardcopy. The listing 
includes, at one-minute intervals of the ascent and at selected pressure 
levels, the following measured and derived meteorological quantities: 
altitude (geopotential meters) 
pressure (mb) 
logarithm of pressure 
temperature (K) 
virtual temperature (K) 
relative humidity (percent) 
dewpoint (K) 
specific humidity 
wind speed (m/sec) 
wind direction (degrees azimuth) 
wind, northerly (m/sec) 
wind, easterly (m/sec) 

UMET-l is unique among automatic meteorological data processing 
systems, in that it does not require a specially designed sonde. The 
processing includes decommutation of the standard sonde signal into 
reference, temperature, and humidity channels. 


The system is composed of the three portable units shown in Figure 
1.0-1: the central unit (card cage containing five printed circuit 
boards, and with a punched paper tape reader head mounted on its front 
panel), a keyboard-video terminal, and a printer. Upon setting up the 
three units with two interconnecting cables (Cl, C2), and connecting to 
the input data source and to a standard 120 VAC power source, the system 
is ready for operation. 

The operator simply turns on the system, and enters keyboard inputs 
as requested on the video screen. A "pull-through" punched paper tape 
reader accepts the pressure calibration data routinely supplied by the 
sonde manufacturer. The system automatically commences processing when 
the time-word on the incoming data exceeds the launch time entered by 
keyboard. Provision is included for correction of keyboard errors, and 
for changing the entered launched time, in case of delays in balloon 
release. Certain computed quantities are displayed during balloon 
ascent to confirm normal operation of real-time processing. Upon com- 
pletion of printing the output, the system automatically "idles" (enters 
an infinite loop) and waits to be turned off or reinitialized for inputs 
for the next balloon launch. 

The computed output is that of the NASA Wallops Computer Program 
No. 3.0.0700 ECC-PRD [l], excluding the ozone portions. The data-edit- 
ing, -condensing, -decommutating, and -interpolating functions, as well 
as the baroswitch tracking function, are those of the University of Utah 
program RAWINPROC [2] . Appendix A is a complete listing of the system 
software, including the modified versions of the above FORTRAN programs 
and the assembly-language programs, used in UMET-1 . 
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Fig. 1 .0 — 1 . tJMET consists of the three portable units: the central 

unit (containing the printed-circuit boards, a paper tape 
reader, and power supply), a keyboard-video terminal, and a 
printer. Real-time data are received from the TRADAT 
system at the "DATA-IN" jack on the front panel. 3aro- 
switch calibration data are read by the punched paper tape 
reader head. Flat cables Cl and C2 (not shown) connect the 
keyboard-video terminal and printer, respectively, to the 
central unit. Each of the three units require 120 VAC 
power . 


> 
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The remainder of this introductory chapter will identify the com- 
mercially available input and output units (printer and keyboard termi- 
nal), and will give the memory map of the processor, as an aid to read- 
ing the next two chapters. Chapter 2.0 will describe the hardware of 
the processor and Chapter 3.0 the software. Chapter 4.0 presents a 
step-by-step procedure for setting up and operating UMET-1 and describes 
the auxiliary quantities displayed on the video terminal during and 
after real-time processing. Finally, Chapter 5.0 suggests improvements 
and further applications. 

Appendix A, the UMET-1 computer routines, is followed by Appendix 
B, a sample output listing. Appendix C contains diagrams and drawings 
of the hardware system. 

The software for a future application of the UMET concept, that of 
meteorological rocket (DATASONDE) flight data, is listed in Appendix 
D. Though this program requires slant range data, which, in turn, 
require a transponder in the parachutesonde (unavailable at present), 
the UMET concept accommodates this application. Further work is 
required to complete the incorporation and demonstration of a real-time 
version of the METROC data reduction routine. 

1.1 Printer 

The principal output unit of UMET-1 is a standard 100 character per 
second dot-matrix printer (CENTRONICS Model 739-1) [3]. Its pin- 

addressable graphics capability, through host computer control, accommo- 
dates the recommended addition to the system of a plotter routine, which 
would produce the familiar "pen trace" produced by the conventional 


AN/TMQ-5 meteorological recorder. This pen trace would serve not only 
as a familiar real-time monitoring feature, but would serve as a backup 
under unusual conditions. The printer provides a permanent record of 
each run including inputs entered manually (by keyboard) or by the 
punched paper tape reader, and optional diagnostic quantities during the 
processing, as well as the ultimate output, the printed results of the 
sounding. 

The 40-pin printed circuit edge card connector on the left rear of 
the printer, connects a 36-wire flat cable C2 through a special adapter 
(Motorola printer cable board) to the UMET-1 central unit. The adapter 
receives the printer cable in a 36-pin D connector (Amphenol 57-10360- 
13). From a 3M No. 3426 connector, a 50-wire flat cable then leads 
inside the central unit to edge connector P4 on the CPU Board. 

1.2 Keyboard-Video Terminal 

The keyboard terminal is a Televideo Model 910 [4] . The keyboard 
is selectrie style and includes a ten-key pad for easy entry of num- 
bers. The CRT display screen is used to request successive input values 
and decisions from the operator, and to display incidental diagnostic 
and status information during processing. The original UMET design 
excluded the CRT display for economy and ruggedness, and used only the 
keyboard and printer for input and output. However, the computer termi- 
nal chosen was sufficiently inexpensive and rugged, and at the same time 
offered added convenience, for the prototype system. Subsequent models 
for field use may well exclude the video screen. The terminal is used 
in the system without modification and is therefore interchangeable. 
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Switch settings on the terminal, for use in UMET-l are listed in Table 
1.2-1. A 25-wire flat cable Cl from connector P3 (R5-232) on the termi- 
nal, leads to edge connector P2 on the CPU Board. 

1 .3 Memory Map 

The remaining one of the three units mentioned above comprising 
UMET-l, the central unit, is described in the following two chapters, in 
terms of hardware and software. The system hardware is configured so 
that the software sees the system as shown in Figure 1.3-1. Throughout 
this report the prefix $ is used to denote hexadecimal, i.e. base 16, 
numbers . 

The ROM banks are software selectable so that bank A is used during 
real-time processing and bank h is used to complete the meteorological 
computations and to list output immediately following the termination of 
the processing of flight input data. Of the 64K ($FFFF, or 65,536 

addresses) available memory space, one-half or 32K ($8000 or 32,768 
addresses) is reserved for ROM, 24 k ($6000, or 24,576 addresses) for 
RAM, and the remaining one-eighth or 8K ($2000, or 8,192 addresses) is 
designated for input-output interfaces and the program monitor. The 
largest part, that for ROM, holds either of two programs "AMET" or 
"BMET", depending on which bank is switched in by the monitor. It is 
noted that the additional 2K of RAM on the CPU board is unused (see 
Section 2.7 below). 


- 6 - 


TABLE 1.2-1. TERMINAL SWITCH SETTINGS FOR UMET-1 


Switch SI 

Switch S2 

l D 

1 D 

2 D 

2 D 

3 D 

3 U 

4 D 

4 D 

5 D 

5 D 

6 D 

6 U 

7 D 

7 U 

8 D 

8 D 

9 U 

9 U 

10 D 

10 D 


(U * up, D =* down) 



V, * g 


Interrupt Vectors 

$FFFF 

$FFF2 

Monitor and 

Interrupt Error Message 

$FA37 

$F800 

Terminal ACIA 

$EC15 

$EC14 

Printer Interface 

$EC13 

$EC10 

(unused) 


Paper Tape Reader PIA 

$E01 7 
$E014 

Real-Time Data PIAs 

$E013 

$FOOO 

RAM 

$DFFF 

$8000 

ROM bank A 
(AMET) 

ROM bank B 
(BMET) 

$7FFF 

$0000 


Fig. 1.3-1. Memory Map of UMET-1. At balloon apogee the ROM is switch- 
ed from bank A to bank B. Memory addresses are in hexadec- 
imal notation. (AC1A*. Asynchronous Communication Interface 
Adapter; PIA: Parallel Interface Adapter; RAM: Random 

Access Memory; ROM: Read-Only Memory) . 
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2.0 PROCESSOR HARDWARE 


The central unit of the three-piece UMET-1 system is a chassis with 
five circuit boards, and with a punched paper tape reader. The chassis 
is a Motorola M68MMLC1 Micromodule Long Chassis, containing a power 
supply, a ten-card rack, and motherboard [53. The custom features of 
the motherboard and the added features on the front panel including the 
punched paper tape reader head, are described below, along with descrip- 
tions of the five circuit boards in the card cage. 

The overall hardware configuration of the five boards and mother- 
board is shown in Figure 2.0-1. Note that two clock lines from the bi- 
phase-to-level converter (RT CLOCK) are used to drive the thirteen 
shift-registers since TTL fan-out is about ten. Two additional lines 
(BITS, BITS) utilize an available inverter on the INPUT board to obtain 
the inverse of bit 6 in the real-time data word. This is used in the 
interrupt decoder to synchronize on the input data word. These, 
together with the data line for the real-time input (RT DATA), the data 
clock, and interrupt lines for the paper tape input (PT DATA, PT CLOCK, 
PT INTREQ) , and the ROM bank control line (BMET) , constitute the nine 
custom conne. t ions for UMET-1 on the card-cage motherboard. 

2 . 1 Motherboard 

The card-cage is shown in Figure 2.1—1. The five printed-circuit 
boards muse be placed in the cage in the order given in Table 2.1-1, 
beginning with position "1" nearest the front panel. Position 9 is 
unavailable because the wire-wrap pins of the INPUT Board extend into 
the space of position 9. Thus the ROM, INPUT, and INTERFACE boards. 
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Fig. 2.1-1. The card-cage and motherboard. Position "1" of the card- 
cage is nearest the chassis front panel (right). Notice 
the custom connections hardwired on the motherboard between 
the headers at positions 7, 8, and 10. Cable C3, which 
connects the front panel to the Input Board (at edge con- 
nector P2), is shown lying behind the front panel. The 
power supply is beside the card-cage, and the cooling fan 
is seen on the rear panel (left). 


TABLE 2.1-1. CIRCUIT BOARD POSITIONS 


Position 

Printed Circuit Card or Board 

1-6 

CPU, RAM BOARDS 

7 

ROM BOARD 

3 

INTERFACE 30ARD 

9 

(unavailable position) 

10 

INPUT 30ARD 

l 
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those having the custom data lines mentioned above, must occupy, as 
indicated, position 7-10. The CPU and RAM boards may be placed in any 
of the other positions. 

The card cage motherboard provides the address, data, and control 
bus interconnections between the circuit boards, as well as the dc 
voltages from the chassis power supply. The motherboard has for custom 
use a 16-pin header for each card slot, connected to unused pins C, D, 
E, F, 25, 26, 27, and 28 on each 86-pin card slot connector (the other 
row of eight pins in each header is grounded). 

Since nine data lines are needed to the interface board (eight are 
accommodated by the wire-wrap header), an unused ground line (pin B) was 
utilized between the interface and input boards. The ground line was 
cut to isolate it from its remote connections. The nine interboard 
connections are listed in Table 2.1-2. 

2 . 2 Punched Paper Tape Reader Head 

The punched paper tape reader head used on UMET-1 was adapted from 
an RP-9362 Tape Re Jer/Punch system manufactured by EECO, Electronics 
Engineering Company of California [6] . The electric motor drive was 
removed to make a "pull-through" reader mounted on the front panel of 
the UMET-1 central unit. The resulting fixture conveniently and relia- 
bly reads the one-inch wide eight-level tape [7], containing the baro- 
switch pressure calibration data, accompanying each RAWINSONDE . Figure 
C-l in Appendix C shows the circuit diagram. 

The reader head is photoelectric, employing nine light-emitting 
diodes (LEDs) to transmit light through the holes in the punched paper 
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TABLE 2.1-2. CUSTOM DATA LINES ON THE CARD-CAGE MOTHERBOARD 


Input 

Board 

Pin 

Interface 

Board 

Pin 

H 

Signal 

Names 

(Fig. 2.0-1) 

Function 

25 

25 


RT DATA 

Real-time data 

26 

26 


RT CLOCK 

Real-time clock 

27 

27 


RT CLOCK 

Real-time clock 

D 

5 


BIT6 

Real-time bit 6 

C 

C 


BIT6 

Real-time bit 6, inverted 

28 

28 


PT DATA 

Paper tape data 

F 

F 


PT CLOCK 

Paper tape clock 

5 

B 


PT INTREQ 

Paper tape interrupt request 


E 

£ 

BMET 

ROM bank select 
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tape., and nine phototransistors to sense the light. The current through 
the LED array is adjusted to bias the phototransistors into full conduc- 
tion for holes in the tape, and into cutoff for no holes. The outputs 
of the phototransistors, eight parallel data signals, and one sprocket 
hole signal, are brought to the Input Board through cable C3 . 

Although the reader head has a tape guide adjustment for different 
tape sir.es, the circuitry of the Input Board is designed only for the 
standard eight-bit tape. The tape can be pulled through the reader head 
virtually at any speed but, of course, without backing up. Procedure 
for operating the punched tape reader head is included in Section 4.1. 

2.3 Input Board 

The Input Board is constructed on a Motorola MEX68WW Wire Wrap 
Module, and contains custom-built circuitry to interface the real-time 
data source and the paper tape reader to the microprocessor PIAs . .It 
consists of two separate and independent circuits; the biphase-to-level 
converter and the paper tape interface. Figure C-4 in Appendix C shows 
the component layout. The two circuits on the board are described 
separately below. 

2.3.1 Biphase-to-level Converter 

Figure C-2 in Appendix C shows the circuit of the bipbase-to-level 
converter. The purpose of this circuit is to take the real-time data 
signal from the front panel DATA-IN jack, convert it from it’s biphase 
format to an ordinary serial bit stream (with "high" and "low" levels 
being "1" and "0" respectively), and to feed it through the bus to the 
shift register on the Interface Board. In addition, this circuit gener- 
ates the clock for the shift register. 
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The real-time input signal from the TRADA.T system is a 1000 bit per 
second biphase PCM serial stream. Binary "ones" and "zeroes" are there- 
fore represented respectively by transitions high-to-lov and low-to- 
high, clocked at one millisecond intervals. Note that infinite sequen- 
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ces of "ones" or of "zeroes" are indistinguishable unless the receiver 
is synchronized with the sender. Note also, however, that at any change 
from "zero" to "one", or "one" to "zero", there is no transition. This 
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missing transition is used for synchronizing the biphase-to-level con- 
verter. Whenever an expected transition does not occur, the circuit 
automatically "moves up" a half-cycle, thus locking on to a proper 
transition. 

The circuit accomplishes this automatic synchronization simply by 
masking any transition occurring within about 0.8 millisecond after the 
preceding transition. The next transitions the circuit sees after a 
missing transition, then, are always proper transitions. 

The biphase input from the DATA-IN jack on the front panel through 
cable C3 is fed to a comparator Ul, whose threshhold is adjustable by 
potentiometer R4. This adjustment provides versatility in reading data 
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from analog cape players. The comparator output is fed through a pair 
of inverters on U10, to an edge detector using U5 and an OR gate, U7- 
1. Thus when a transition, high-to-low or low-to-high, occurs in the 
input signal, a pulse occurs at pin 3 of the following AND gate, U8-2.. 
Potentiometer R3 is used in the external timing control circuit of the 
74LS12? one-shot U2-2 so that its output pulse remains high for a nomi- 
nal 0.8 milliseconds. This output fed back through an inverter U10-3 
prevents recognition of a transition for 0.8 milliseconds. Recognized 
transitions, however, each cause a clock pulse from U3-2 to gate the 
input signal level through U6-1 . Since the U2-2 output is connected to 
the inverting input, pin 9, of U3-2, the resulting clock pulse from U3-2 
occurs at the end of the 0.8 millisecond period, causing the signal 
gated through U6-1 to be the starting voltage level of the succeeding 
bit transition. A "fine" adjustment of R3, then, permits "tuning", i.e. 
the selection of the best point between transitions to gate the signal. 

The clock pulse from U3— 2, in addition to clocking the gate U6— 1 , 
also clocks the shift registers receiving the gated signal. The shift 
register clock pulse is delayed 0.05 milliseconds behind the gate clock 
by triggering at U3-1 on the pulse trailing edge (connecting to the 
inverting input, pin 1, of U3-1). This allows settling of the input 
before it is clocked into the shift register. Inverters U9 provide two 
clock lines to the shift registers for sufficient fanout. 


2.3.2 Paper Tape Interface 

Figure C-3 in Appendix C shows the circuit of the paper tape inter- 
face. The purpose of this circuit is to interface the paper tape reader 


head to the microprocessor PIAs. The outputs of the phototransistors in 
the tape reader head (Section 2.2), eight parallel data signals 
(£ETT - "CHS - ) and one sprocket hole signal C3PTOEKED , are brought to 
the Input Board through cable C3. The paper tape, interface senses from 
the sprocket hole signal when new data are available from the tape 
head. The data are then latched into a shift register and sent serially 
through a bus line to the PIA on the Interface Board. After transmis- 
sion, an interrupt is sent to the microprocessor via the PIA, and the 
circuit is ready to accept more data. 

All nine input lines from the paper tape head are first buffered 
through LM339 comparators, which have a reference voltage of about 1.5 
volts. The reference voltage is adjustable through the bias potentio- 
meters on the comparators' noninverting inputs. The outputs of the 
comparators are inverted, i.e. an output is a logic "zero” for a hole in 
the tape and logic "one" for no hole. 

After the comparator, the sprocket signal is delayed 1 to 2 milli- 
seconds by a resistor, capacitor, and diode network (R63, C20, D2) , to 
insure that the data holes are centered over the phototransistors and 
the comparators have settled. The signal is then differentiated (R61, 
R62, C15, 01) and applied to a Schmitt trigger (U17). Note that diode 
D1 is in the differentiator to prevent the Schmitt trigger input pulse 
from falling below ground, which can cause spurious switching. The 
result is a signal called LATCH (Figure C-3) , which goes high when the 
data are ready at the comparators and stays high fo*r about a millisec- 
ond. On the rising edge of LATCH the data from the comparators are 
latched into the latches (U6), and on the falling edge they are trans- 
ferred to the shift register. 
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At this point the circuit begins transmitting the data to the 
PIAs . The circuit includes a clock (U15) which runs at approximately 16 
KHz and is used for shifting the data out of the shift register and into 
another shift register on the Interface Board. After the LATCH signal 
falls, a counter (U19) allows exactly eight clock pulses to reach the 
local shift register. The serial data signal, labelled PT DATA (Figure 
C-3), is sent through custom bus line 28. At the same time the clock 
signal is sent to the other shift register through custom bus line F, 
labelled PT CLOCK. At the conclusion of the eight pulses an interrupt 
is sent to the PIA through custom bus line B, labelled PT INTREQ. This 
interrupt tells the microprocessor that there are paper tape data to be 
read in from the PIA, which is connected to the other shift register. 
The current byte must be read from the PIA before the next byte arrives, 
or it is lost. 

2.4 Interface Board 

The Interface Board is built on a Motorola MEX68USM Universal 
Support Module [8] . This module has a wire-wrap socket area, address 
and control bus buffers, and switch selectable address capability, to 
accommodate custom circuitry. It is used in UMET-1 to interface input/ 
output with the microprocessor. The following first describes the 
microprocessor side of the interface, then the real-time data and 
punched paper tape side of the interface. 

2.4.1 The Microprocessor Side of the Interface 

The Interface Board includes a switch selectable address decode 
which is sent to the wire-wrap counter header Kl as CS. CS is also on 
the header along with A0-A15 and A5-AIT , 
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The address switches are set so that the base address of the board 


is $5000. Address lines 0 through 4 are cut so that the chip select 
(CS) pin on the board at wire-wrap header K1 pin 7, ICS is at Kl pin 8) 
is decoded on binary 11X0 0000 000X XXXX. Using this signal and decod- 
ing uniquely address lines 0-4, each of the PIA registers can be 
addressed according to Table 2. 4. 1-1. Thus the four registers of PIA #1 
are at addresses $E000 to $E003, and those of PIA #6 are at $E014 to 
$E017, with the other PIAs in order between. Four 7408 AND gates are 
used to decode A2 and A3 as shown in the table. 

Each PIA has three chip select inputs; two active-high, CS0 and 
CSi., and one active-low, CSi . To select the PIAs at the above 
addresses, the selects on each PIA are wired according to Table 2. 4. 1-2. 

To access it's four registers (two Peripheral Registers and two 
Control Registers) each PIA has two register select inputs, RSO and 
RSI. All PIA's are wired so A0 goes to RSI and A1 goes to RSO. This 
appears inverted but it decreases data acquisition time by using the 16- 
bit data register of the 6809 to read the PIA's data port during an 
interrupt. The registers selected are shown in Table 2. 4. 1-3. 

A memory map showing the addresses of all PIA registers with the 
format of the incoming data is shown in Figure 2. 4. 1-1. 

2.4.2 The Real-Time Side of the Interface 

The real-time input data from the TRADAT system [9] are a 100-bit 
serial word, transmitted at 10 words per second. The 100-bit word 
begins with an 8-bit synch word (11111011), followed by status indica- 
tors, spare bits, and BCD words listed in Table 2. 4. 2-1. 
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TABLE 2.4. 1-1. PIA ADDRESS LINES 


i 

A15 - A5 

A4 

PIA #1 

Decoded by 1 

0 

PIA #2 

switch as 

0 

PIA #3 

CS ($EOOO) 

a 

PIA #4 

on the wire 

0 

PIA #5 

wrap header, 

1 

PIA #6 

K1 

1 


A3 

A2 

0 

0 

0 

l 

1 

0 


TABLE 2. 4. 1-2. PIA CHIP SELECT INPUTS 


PIA # 


CS1 


CTT 

A2SJ 

AlA3 

A2A3 


TABLE 2. 4. 1-3. PIA REGISTER SELECTION 


Register Selected 


PA (Peripheral Register A) 
PB (Peripheral Register B) 
CRA (Control Register A) 
CRB (Control Register B) 


A1 

AO 

0 

0 

0 

1 

1 

0 
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hex 

address 

E000 

EOOl 

E002 

E003 

E004 

E005 

E006 

E007 

E008 

E009 

EOOA 

EOOB 

EOOC 

EOOD 

EOOE 

EOOF 

E010 

EOll 

E012 

E013 

E014 

E015 

E016 

E017 

Fig. 2.4 


PIA register 

PIA 1 PA 

PB 
CRA 
CRB 

PIA 2 PA 

PB 
CRA 
CRB 

PIA 3 PA 

PB 
CRA 
CRB 

PIA 4 PA 

PB 
CRA 
CRB 

PIA 5 PA 

PB 
CRA 
CRB 

PIA 6 PA 

PB 
CRA 
CRB 


- register bits - 


1 — 1 — i — 

met word-d4 
1 »■■■■■ * 

— * — » . » — r 

met word-d3 

met word-d2 
1 | | | ■ 

met word-dl j 

(ROM bank 

1 

switching) i 

1 — -i 4——* 


1 1 1 

azimuth-d3 

• ' 1 1 

azi.muth-d2 | 


azimuth-di 

t- i- 1 J 

met word-d5 
<11 


! 1 1 

elevation-d2 

h ~~ l 1 

elevation-dl 




(empty) 

az-d5 
— 

azirauth-d4 
( | , 


1 1 1 

seconds-d2 

1 1 1 

seconds-dl 

elevat ion-d4 

H— t 1 

elevation-d3 

! —t 


[hrs-d2 

1 1 1 

hours-dl 

1 

min-d2 

[min r 

i — » ■ i 

ninutes-dl s 

t— * r — 

ecs-d3 

+- 


i * *■ 1 » 1 I 1 

paper tape character I 

* I 1 I — i — —I 


.1-1, PIA memory map. The eight-bit word in address EOOO 
contains the two most significant decimal digits (thou- 
sands d4 and hundreds d3) of the "met" datum. EOOl con- 
tains the two least significant digits (tens d2 and units 
dl). Notice that the most significant decimal digit of 
azimuth (d5) requires only two bits, that of seconds 
(d3), being five or less, requires only three bits. The 
bits representing the tens of minutes requires only three 
bits, one bit of which is bit 8 in the PB register of PIA 
5. Addresses E016 and E007 are used for input interrupt 
control (see Sections 3.3.6 and 3.3.7). 
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TABLE 2. 4. 2-1. TRADAT 100-BIT REAL-TIME DATA WORD FORMAT 



— 
word length 

bit number 

* 

Frame sync 

8 

1- 8 

Spare 


9 

Met flag 

1 

10 

Spare 

1 

11 

Tracker mode 

1+1+1+3+3 

12- 20 

Time of day (hr, 2 digit BCD) 

2+4 

21- 26 

(min, 2 digit BCD) 

3+4 

27- 33 

(sec, 2 digit BCD) 

3+4 

34- 40 

(tenth sec, BCD) 

4 

41- 44 

Elevation (deg, 4 digit BCD) 

4+4+4+4 

45- 60 

Spare 


61- 62 

Azimuth (deg, 5 digit BCD) 

2+4+4 +4+4 

63- 80 

Met word (usee, 5 digit BCD) 

4 +4 +4 +4+4 

81-100 

(or range) 
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The last BCD word is slant range or "met frequency" (more pre- 
cisely, the period in microseconds of the audio tone transmitted from 
the meteorological sonde), depending on a switch set by the TRADAT 
operator. The switch allows the operator to choose only slant range 
(for non-meteorological applications of TRADAT), only met frequency; or 
alternating range and met data (when both are needed as in DATASONDE 
rocket meteorological soundings). Slant range is not provided in 
RAWINSONDE soundings, and five per second data rate is adequate, so it 
is expected that the alternating mode will be chosen universally for 
meteorological applications of TRADAT. In any case, the met flag (bic 
10) is "1" when the 100-bit word contains met frequency, and "0" when it 
contains slant range. UMET-1 synchronizes on the first six bits of the 
synch word (111110), but also requires bit 10 to be "1". Note also that 
though the five "ones" in the synch word indicate "near synch" (i.e., no 
contiguous BCD string produces five "ones"), the added "0" is needed to 
assure proper synch when the (preceding) least significant bits of the 
last word of the 100-bit string are "ones". 

The real-time serial signal enters the Interface Board from the 
motherboard through edge connector pin 25 and is fed to a string of 
thirteen shift registers as shown in Figure 2. 4. 2-1. Shift register #1 
and #2, containing the leading bits of the 100-bit stream, is connected 
to the interrupt decoder. When the synch word and the "met" flag are 
detected, the IRQ interrupt is initiated through CA1 of PIA #1, and the 
content of the shift register, hardwired to the PIA's, is read into the 
processor. Eighty of the 100 bits are available for the processor at 
the PIA ports as shown in Figure 2. 4. 2-1. Of the 104 bits of real-time 
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MET WORD AZIMUTH ELEVATION TIME 



y 


Fig. 2.4.2-i. Real-time shift registers and interrupt logic. 



data stream held by the thirteen shift registers, only the 80 (bits 21 
to 100) are "ported." 

2.4.3 Punched Paper Tape Side of the Interface 

Serial data from the punched paper tape circuit on the Input Board, 
together with the associated clock and interrupt signals, are fed 
through the bus to the Interface Board. The data are clocked into the 
paper tape shift register. When the register is filled, the interrupt 
line goes active at CA1 of PIA #6. Port B of PIA #6, hardwired to the 
paper tape shift register, contains then the data to be read by the 
processor . 

2.5 Read Only Memory (ROM) Board 

The ROM Board is a Motorola M68MM04A ROM/EPROM Module Micromodule 
4A [10]. In order to provide two banks of program memory at the same 
address (S0000 to $^FFF) , the board was modified as shown in Figure 2.5- 
1. Address line A15 has been cut and rerouted to the board select logic 
as follows. Address line A15 is first inverted using an unused gate in 
chip U40 [Reference 10, Figure 4-2], then is routed to the chip select 
decoder through AND gate U15, pin 10, (The input to pin 10, not shown 
in Figure 4.2 of Reference 10, was disconnected from +5V, and recon- 
nected to the Al5 output of U40). The ROM board is therefore enabled 
only when A15 is low. The control line from PIA #1, output port CB2, 
(through INTERFACE board pin #19) is connected directly to the bank 
select logic, at bus contact 33, the point from which A15 was cut. 

The board is configured according to procedures described in Refer- 
ence 10, so that the upper memory sockets are at $0000 to $7FFF, and the 
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Fig. 2.5-1. ROM Board modification for switching banks. 





lower (would be) at address $8000 to $FFFF . The upper memory is selec- 
ted when the PIA #1, port CB2, is low, and the lower when high. Due to 
the way A15 is used on the board select logic, the board is never 
enabled at addresses $8000 and above. To the processor, the lower 
memory sockets, when used, also appear at $0000 to $7FFF. The PIA input 
is controlled by software so that only bank A (upper sockets, the "AMET" 
program) is read during real-time processing, and only bank B (lower 
sockets, the "BMET" program) is read during the post-apogee computations 
of UMET-1. 

2 . 6 Random Access Memory (RAM) Board 

The RAM board is a Motorola 32K Dynamic RAM Module MEX 6832-22, 
[11]. The board is configured to be a 24K RAM at addresses $8000 to 
$DFFF, by wiring the address select wire-wrap header as shown in Figure 
2.6-1. Row A is selected by decoding addresses A15 and AlX. Row B is 
selected using A15 by way of board select, A14, and A13. 

2.7 Central Processor Unit (CPU) Board 

The CPU Board is a Motorola M68MM19A Monoboard Microcomputer Micro- 
module 19A [12], with an industry standard 2716 2k x 8 EPROM in socket 
U28 [Reference 12, pp. 2.2, 2.3, compare Figure 1.3-1, above]. A jumper 
is added between U28 pin 12 (ground) and header K9 pin 6. This grounds 
the 2716 chip enable(pin 18), which is an active low input. Maintaining 
thi3 input active significantly decreases the data access cycle time, 
allowing the 2716 to operate at 2 MHz. (The long jumper between U20 pin 
27 and U27 pin 21 is vestigial — the fast chip for which it was 
intended became unnecessary when the 2716 proved adequate.) 
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Top Row 


Bottom Row 


9 

10 




Board select 
Row A select 
Row B select 


Fig. 2.6-1. RAM address select header, 24k. 
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3.0 PROCESSOR SOFTWARE 


The overall sequence of the UMET-1 program is shown in Figure 3.0- 
1. Recalling the general memory map (Figure 1.3-1), turning "on" the 
front panel switch automatically sends control to the beginning of the 
MONITOR program (address $F800). The UMET-1 MONITOR program, contained 
in the CPU EPROM, first initializes the system then sends control to 
address $0050 of AMET which, in turn, is contained in bank A of the ROM 
Board. 

AMET is a set of routines which requests and receives keyboard and 
punched paper tape inputs before launch, and, after launch, processes 
radiosonde flight data in real-time. After the radiosonde reaches 
apogee, or when the operator stops real-time processing (by pressing the 
"S" key), AMET interpolates the accumulated flight data uniformly at 
regular intervals for final processing by BMET, and returns control to 
the MONITOR at address $F831. 

The MONITOR then masks the real-time interrupt, clears RAM memory 
except COMMON, switches ROM banks, and sends control to BMET (address 
$150). BMET, contained in Bank B of the ROM Board, processes the inter- 
polated data from AMET (in COMMON), and prints the final meteorological 
results of the radiosonde sounding. The system "idles" in an infinite 
loop, displaying "NORMAL PROGRAM TERMINATION," at the end of BMET until 
UMET-1 is turned "off." 

The following first describes the interrupt system of UMET-1 (Sec- 
tion 3.1), MONITOR (Section 3.2), then discusses, in turn, the software 
routines comprising AMET (Section 3.3), and those comprising BMET (Sec- 
tion 3.4). the complete program of UMET-1 is listed in Appendix A. 
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3.1 Interrupt Design 


UMET-1 is designed to process data in real-time, i.e., a real-time 
portion (AMET) is programmed in such a way as to allow computation 
within standard FORTRAN routines to be interrupted in order to read data 
arriving at regular intervals through PIA's. The real-time data are 
interpreted and stored in a queue (first-in-first-out, FIFO, file) to 
await processing according to the subsequent availability of the proces- 
sor. The queue can hold up to one hundred fifty 0.2 second points, or 
thirty seconds of real-time data. Experience during development of the 
target system has seldom seen the queue backed up more than forty 
points, and then only momentarily when considerable real-time printing 
was required. Normally, the queue remains essentially empty. 

The normal maskable interrupt (IRQ) of the 6809 processor is used, 
which causes the entire machine state to be stacked. Extensive use of 
the processor is therefore available for servicing the interrupt, with- 
out damaging the subsequently resumed computations. Except for RESET, 
UMET-1 uses none of the other available interrupts (NMI, FIRQ, SWI, 
SWI2, SWI3) . If any of these unused interrupts occur, MONITOR simply 
issues a warning message to the terminal display "WARNING SYSTEM INTER- 
RUPT HAS OCCURRED," and returns to the program. This warning, the 
Interrupt Error Message, is used throughout UMET-1 to signify any spuri- 
ous interrupts. 

The two interrupts used in UMET-1, RESET and IRQ are vectored as 
shown in Table 3.1-1. Thus UMET-1 software has four interrupt service 
routines: REAL, TAPE1 , the MONITOR itself for RESET, and the Interrupt 
Error Message. 
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TABLE 3.1-1 


INTERRUPT VECTORING 


INTERRUPT 

LINE 

INTERRUPT PSEUDO 

VECTOR VECTOR 

ROUTINE 

CALLED 

RESET 

$F800 

Beginning of Monitor 


f $5878 

TAPE1 

IRQ 

$DFFD, A - < $5620 

REAL 


j $F900 

Interrupt Error Message 








Upon the occurrence of a RESET or an IRQ interrupt in a 6809 micro- 
processor, control goes to the top of memory to read the location of the 
next instruction. In UMET-1 , $FFFE (RESET) contains address $F800, 
$FFF8 (IRQ) contains $DFFD, and the rest contain $F900. Thus when power 
is switched "on" (or the reset button on the CPU Board is depressed), 
control always goes to the beginning point of MONITOR, i.e., RESET 
always restarts the entire UMET-1 program. 

When an IRQ interrupt occurs, control finds in $DFFD a jump 
instruction with address A, where A is determined by software as 
described in the next two paragraphs. Incidentally, MONITOR always 
masks the IRQ interrupt line (by setting the condition code register bit 
I ■ 1), so an IRQ interrupt is ignored while control is in the MONITOR. 

Initially, of course, $DFFD, and its address bytes $DFFE and $DFFF , 
contain zeros, as does the rest of RAM. Early in the MONITOR, $DFFD is 
loaded with the jump instruction. Just preceding the input of punched 
paper tape input (the pressure calibration table of the sonde baro- 
switch) in AMET, MAIN calls subroutine SETUP which in turn sets A * 
$5878, the beginning address of TAPEl. 

Interrupt service routine TAPEl will service punched paper tape 
input. Later, after the completion of all paper tape inout and just 
preceding the reading of real-time data, MAIN calls subroutine INTERR 
which, in turn, sets A * $5620, the beginning address of interrupt 
service routine REAL. REAL will service real-time data input. Finally, 
at the completion of AMET, MONITOR sets A * $F900, which is the error 
message address in MONITOR, mentioned above. The remaining UMET-1 
program (BMET) requires no interrupts. 
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3.1.1 The Queue, Real-Time Buffer 


Occasionally real-time data appear at the PlA's before the proces- 
sor has completed the preceding work. A queue is used to hold up to 150 
real-time points, so that each point can be read in as it occurs at the 
PlA's, and can be read out as rapidly as the processor can "get to" 
them. The processing time required between points varies, depending 
primarily on the amount of printout required. 

Each 80-bit real-time point read from the PlA's is interpreted by 
the interrupt service routine REAL and stored as ten words in the queue 
(the IDATA array). The ten words include the time-of-day, tracking 
angles (azimuth and elevation), sonde frequency, etc. Pointers are 
defined in such a way as to create, in effect, a 1500-word loop into 
which data are stored ten words at a time, in sequence, and are read ten 
words at a time in the same sequence (first-in-first-out). If the 
capacity of the queue is exceeded, the oldest points are lost, but 
processing can continue as if the lost points were "drop outs" in the 
real-time data. The queue is considerably larger than necessary for 
normal operation, however, in fact, large enough to allow anticipated 
future additional printer functions. 

3.1.2 Interrupts While Advancing the Queue 

Subroutine ADVANC manipulates the pointers of the queue each time 
it accepts (the oldest point of) real-time data for processing. On the 
other hand, as each new real-time point arrives at the PlA's, the inter- 
rupt service routine REAL manipulates the pointers to add the point to 
the queue. If ADVANC is in the process of "moving" pointers in the 
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queue when a real-time interrupt occurs (INTMSK * 1) UMET-1 allows REAL 
to read and temporarily store the new real-time point, but prohibits 
REAL from entering the point into the queue. If thus prohibited, REAL 
sets INTMSK - 2 and returns to ADVANC, ADVANC then completes its work 
with the queue, but seeing INTMSK * 2, then calls subroutine GETBCK to 
complete the work undone by REAL. In this manner, manipulation of the 
queue in ADVANC is always completed without interference with queue 
manipulation in REAL. The 0.1 second period of the real-time interrupts 
is sufficiently large that the next interrupt never occurs before com- 
pletion of queue manipulation in REAL and GETBCK. 

3.1.3 Manual Stop, STOPER 

Provision is made to manually effect "apogee," the end of flight 
data, by depressing "S" on the keyboard. AMET, in subroutine ADVANC, 
calls subroutine STOPER whenever the qu .5 is empty (IFLAG “0). If the 
"S" character is detected, AMET ceases to accept real-time data (ADVANC 
sets MASK * 4), completes its preparation of the accumulated flight data 
for final processing by BMET, and returns to the MONITOR for switching 
to BMET. 

Subroutine STOPER is also used to permit the operator to abort the 
reading of the punched paper tape, in favor of keyboard entry of the 
pressure calibration table or of re-reading the tape. 


3.2 MONITOR 

MONITOR is the control program for UMET-1; it begins running auto- 
matically when the power is turned on and starts the other programs in 
proper sequence. MONITOR is located, with the Interrupt Error Message 
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routine, in a separate EPROM memory on the CPU board. All the other 
programs are grouped in Bank A (AMET) and Bank B (BMET), the two soft- 
ware-switchable banks of EPROM memory on the ROM board. 

As discussed in section 3.0, the AMET and BMET programs are consec- 
utively switched into the memory map and executed. First AMr .1 handles 
the real-time data phase, then BMET produces the meteorological print- 
outs. MONITOR'S main tasks are (1) initialize memory and input-output 
devices for AMET and BMET, including setting up the "pseudo-interrupt 
vector" to direct interrupts to the proper service routine, (2) do the 
memory bank switching, and (3) start the execution of AMET and BMET. A 
more detailed description of what MONITOR does follows. 

MONITOR is started by a RESET interrupt initiated either by turning 
the power switch on, or by pressing the reset switch on the CPU board. 
This interrupt causes the microprocessor to get the MONITOR'S starting 
address ($F800) from the interrupt vector location $FFFE and jump to it. 

First MONITOR masks the IRQ interrupt, so spurious interrupts will 
be ignored until the AMET program is ready to read the paper tape. Next 
the ACIA is configured to communicate with the terminal. Then all RAM 
memory is cleared to zero. Next Bank A of EPROM memory (AMET) is 
switched into the memory map. This is done by writing $30 into location 
SE003, which is register CRB of PIA #1. 

Next the "pseudo-interrupt vector" is set up. The microprocessor's 
permanent interrupt vectors are located in the MONITOR EPROM and cannot 
be changed. However, the IRQ interrupt is used by both the paper tape 
reader and the real-time data shift registers at different times to ask 
for service. So the IRQ interrupt must cause a jump to TAPE1, the paper 
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tape reader service routine, during paper tape read-in, but also cause a 
jump to REAL, the real* irae data service routine, later during the sonde 
flight. This problem resolved by creating a "pseudo-interrupt vec- 
tor"; a jump instruction in RAM memory whose destination address can be 
changed during execution. An interrupt causes the processor to jump to 
this instruction, which in turn jumps to the proper service routine. So 
MONITOR stores the instruction "jump" ($7E) in location $DFFD. Before 
the interrupt is used, subroutines in AMET will load different destina- 
tion addresses into location $DFFE, setting up the jump to direct execu- 
tion to the proper service routine, TAPEl or REAL. 

The system is designed, of course, to start with the AMET pro- 
gram. MONITOR starts AMET by jumping to the starting address ($0050) of 
MAIN, the main program of AMET. AMET normally terminates by returning 
to the next location in the MONITOR, 

When AMET finishes and returns, the MONITOR switches to Bank B 
(BMET) by writing $38 into location $E003. Next it clears all RAM from 
5A000 to SDFFF. The uncleared RAM contains COMMON memory holding the 
input for BMET. Next, since the system will need no more input inter- 
rupts, MONITOR in effect disables subsequent IRQ interrupts. This is 
done by storing the starting address of the Interrupt Error Message 
routine ($F900) into the "pseudo-interrupt vector" location ($DFFE). 

MONITOR starts 3MET by jumping to $0150, the starting address of 
PRDMAIN, the main program in BMET. BMET dees not return to MONITOR 
after it finishes processing, but goes into an infinite "wait" loop. 
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3.2.1 Interrupt Error Message 

The Interrupt Error Message is an assembly language interrupt 
service routine that is located in the MONITOR EPROM, starting at 
address $F900. It simply displays the message: 

**** WARNING SYSTEM INTERRUPT ERROR HAS OCCURRED ***** 

on the terminal and returns to the program that was interrupted. 

The Interrupt Error Message is used to indicate that the micropro- 
cessor has received an erroneous interrupt, and provide a return to the 
interrupted program. All interrupt signals not being used by the sys- 
tem, FIRQ, NMI, SWl, SW2, and SW3 , have the starting address of the 
Interrupt Error Message ($F900) stored in their interrupt vector loca- 
tions, so that the message is triggered if they occur. Also, the IRQ 
interrupt is not used during BMET, so before BMET begins MONITOR stores 
the address of the message in the "pseudointerrupt vector" location 
$DFFE. This causes IRQ interrupts during BMET to trigger the message. 

3.3 AMET 

The following describes each routine of AMET, essentially in order 
of occurrence. Figure 3.3-1 relates the routines of both AMET and BMET 
in a block diagram, and indicates those coded in assembly language. 
Interrupt service routines TAPE 1 , REAL, and MONITOR are shown in the 
figure. MONITOR is discussed above (Section 3.2), TAPE1 in Section 
3.3.4, and REAL in Section 3.3.9. The FORTRAN functions ADIR, AL0G10, 
FLOAT, ZSIN, and ZCOS are indicated in the figure and are discussed in 
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ZJ 



Fig. .3.3-1. Software routines of UMET-1. IRQ interrupts are masked by 
MONITOR until after SETUP, are then serviced by TAPE1 until 
INTERR, then by REAL until the end of AMET. Otherwise, all 
interrupts cause an Interrupt Error Message. AMET pro- 
cesses input in real-time, BMET computes output at the end 
of balloon ascent. 

* The asterisk denotes assembly language routines; other- 
wise they are FORTRAN routines. 
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Section 3.4.6. Again, the program is viewed in two principal parts, the 
real-time or input processing part AMET, and the output processing part 
8MET, the latter described in Section 3.4 below. A complete listing of 
each routine, with comments, is included in Appendix A, Extensive 
reference is made to the preceding documents, [1], [2], -for supplemen- 
tary information concerning the FORTRAN routines of BMET and AMET 
respectively. Introductory information in Reference [2] is not repeated 
here but serves well to understand AMET. 

3.3.1 MAIN 

MAIN initializes AMET, requests, reads, checks, stores, displays, 
and prints (a) preflight values entered by the operator at the terminal, 
and (b) pressure calibration values entered by the paper tape reader. 
Required input quantities are described in Chapter 4. Obviously incor- 
rect pressure calibration values are automatically adjusted by interpo- 
lation. The values before and after adjustment are displayed and 
printed to the attention of the operator and eventual user of the data. 
Provision is made for accepting the data, or of re-entering it by key- 
board or by the punched paper tape reader. After the pre-flight infor- 
mation is entered and accepted, and real-time input data has commenced, 
MAIN displays time-to-go each second, on the terminal. After balloon 
release (launch), MAIN conducts the real-time processing of flight data 
(arriving five points per second) .using subroutines ADVANCE, TRACK, and 
DECOM. 

After the termination of real-time processing MAIN prints the 
deeommutated data, and calls subroutine INTERP to prepare the "one- 
minute" table (flight data at uniform 60 second intervals) required by 
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3MET. Finally MAIN prints the one-minute table and certain auxiliary 
information such as the baroswitch contact number reached, the reason 
for termination (balloon burst , stopped by operator, noisy data, etc.), 
and calls subroutine JUMPER which returns control to MONITOR to commence 
BMET . 

3.3.2 PRNTER 

The assembly-language subroutine PRNTER initializes the printer to 
print a 132 character line and disables the real-time data shift regis- 
ter until the program is ready to accept real-time data. 

When the printer is first turned on the "standard monospaced" 
character set is selected automatically, which prints a maximum of 80 
characters per line [4] . To accommodate the wide printout which the 
meteorological programs generate, the "condensed monospaced" character 
set which prints 132 characters per line, must be selected instead. 
PRNTER does this by transmitting the ASCII control characters ESC, DC4 
to the printer (see [4] page 1-3), using the FORTRAN input-output rou- 
tines in the IOPKG [13] (see also IOPKG, Appendix A). First, PRNTER 
calls IOPKG subroutine INITLZ (location $5B52) [13, p.E-5]. This ini- 
tializes IOPKG for use. The IOPKG subroutine L0UTC$ (location $5C0A) is 
called with the character to be sent, ESC ($1B), in the A register. 
This sends ESC to the printer. Then L0UTC$ is called again with the 
character DC4 ($14) in the A register so that DC4 is sent. 

The reaL-time shift registers must be turned off during the paper 
tape reading to prevent spurious interrupts. Register CRB of PIA #2 at 
address $E007 controls the real-time shift registers. PRNTER turns off 
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the shift registers by setting bits 6, 5, and 4, and clearing bit 3 of 
CRB [14] . The real-time shift registers stay off until they are turned 
on again by INTERR, at the beginning of real-time processing. 

3.3.3 SETUP 

The assembly-language subroutine SETUP sets up the system for paper 
tape reading. First, SETUP initializes the variables used by the paper 
tape interrupt routine TAPE1. Then, it programs peripheral register B 
of PIA #6 (location $E015) to receive the character from the paper tape 
reader. This is accomplished by storing $04 in register CRB of PIA #6 
(location SE017). Next, it loads the address of routine TAPE1 ($5878) 
into the pseudo interrupt vector location $DFFE; subsequent interrupts 
from the paper tape reader will cause the processor to jump to TAPE1 for 
service. SETUP then programs the interrupt circuitry of PIA #6. During 
paper tape reading, the reader (by the presence of the sprocket hole) 
signals the processor when a new character is valid at PIA #6 by a 
positive going transition on pin CA1 of PIA #6 which causes an interrupt 
through the PIA* s interrupt logic. The interrupt signal continues until 
it is cleared by a read operation on peripheral register A of the PIA 
(location $E014) . SETUP programs the PIA's interrupt logic by storing 
$07 in register CRA of PIA #6 (location $E016). Finally, SETUP turns on 
the interrupt system by clearing the interrupt request mask bit in the 
processor and returns to MAIN. The system is then ready for paper tape 
reading . 
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3.3.4 TAP El 


TAPE1 is an interrupt service routine called by the paper tape 
reader through interrupt IRQ whenever a new character is available for 
input. This routine performs two tasks: first it removes all extrane- 
ous data, control characters, etc.; second, it interprets the calibra- 
tion data by combining the digits (one character or digit per row across 
the tape [7]) received from the reader into calibration numbers (pres- 
sure values). 

The eight-hole code on the baroswitch calibration tape is according 
to EIA Standard RS0244, with parity bit 5, stop bit 8, and the sprocket 
hole between bits 3 and 4. 

The data are punched in ASCII code and consists of identification 
numbers, line numbers, control characters, as well as the calibration 
numbers. The calibration numbers can be distinguished from the other 
data by three tests: a calibration number is always preceded by a 
"space" character; a calibration number's last digit is always preceded 
by a decimal point; and, of course, it is numeric (having a leading 
"3"). One exception is that no decimal point is included when the 
number is zero. Since zero pressures occur only following the low 
pressure end of the calibration table, this exception presents no diffi- 
culty. 

Initially, the routine looks for five consecutive "deletes" (all 
holes punched) on the tape because the data on a tape are always immedi- 
ately preceded by a series of deletes. After this requirement is met, 
the routine looks for a "space", a decimal point, or a numeric charac- 
ter, When a numeric is read in, it is placed on a stack and a counter 
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is decremented. In this way, the counter indicates how many digits have 
been entered, and eventually the number of digits in the number. Each 
time a space is encountered the counter is reset, thus eliminating the 
digits currently on the stack. For a number to be accepted, a space 
must be read in, followed by several digits the last of which is preced- 
ed by a decimal point. Leading zeros without a decimal point are 
accepted after the 120th entry. It should be noted that before a digit 
is placed on the stack, the MSB is masked out. This removes the leading 
"3” of the ASCII code. 

When the above conditions are m*::, the calibration number is on the 
stack with the least significant l? tenths digit to be first off. As 
soon as the routine detects the end of a calibration number, it begins 
removing the digits from the stack and combining them. Each time a 
digit is removed, the counter ip incremented. 

The first digit removed from the stack (the tenths digit) is always 
placed in its own memory to be later combined with the rest of the 
number. One by one the digits are pulled off the stack, multiplied by 
an increasing power of ten, and added together to form the integer part 
of the calibration number. If the calibration number goes into the 
thousands, the final (most significant) digit is multiplied by ten and 
then by one hundred to accommodate the limitations of the machine. 

Finally, a completion flag, IFLAG, is set and a counter, BYTE18, is 
incremented to indicate that another entry has been processed. The 
calibration data are now in two memory locations, one containing the 
integer part and the other the fractional part, and TAPEl returns from 
interrupt. In MAIN, a real addition is performed on the two numbers and 
the result is placed in the calibration table. 


- 44 - 


TAPE1 is enabled to respond to interrupts by SETUP when it loads 
the starting address of TAPEl (R5878) into the pseudo-interrupt vector 
location ($DFFE). It is disabled after paper tape input by INTERR which 
enables REAL to respond to interrupts. 

3.3.5 STOPER 

Subroutine STOPER is called periodically during real-time process- 
ing. It looks to see whether the "S" key on the terminal has been 
pressed and, if so, sets a flag. 

First, it initializes flag ISTPER to zero, then it checks the 
status register (location $EC14) of the Asynchronous Communications 
Interface Adapter (ACIA) to see whether a character has arrived from the 
keyboard since the last time it checked. If not, it returns. If so, it 
reads the character from the ACIA data register (location SEC15) and 
checks whether it is an "S'* (upper case). If not, it returns. If it is 
an "S" , STOPER sets flag ISTPER to 1 and returns. The calling routine 
then checks ISTPER to see if an "S" has been hit, and if so, terminates 
real-time processing. 

3. 3. 6 OFF 

Subroutine OFF disables the CPU interrupt request A (iRQA) from PIA 
#6, to inhibit spurious interrupts from the paper tape reader head after 
the tape has been read. (Line #12 of Subroutine OFF should read address 
E016, instead of the erroneous E017. See Figure 2. 4. 1-1.) 

3.3.7 INTERR 

Subroutine INTERR sets up the system for input of real-time data. 
First, it saves the contents of the X register in locations 8YTE17 and 
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BYTE18. This is because INTERR is called by the FORTRAN program MAIN, 
and FORTRAN uses the X register during a "call." Since INTERR uses the 
X register, it must temporarily save the previous contents. INTERR next 
temporarily masks interrupt IRQ by setting the "I" bit in the condition 
code register, to inhibit premature interrupts. Next, PIA #1 through 
PIA #5 are programmed to input data from the shift registers. PIA #1 is 
configured to generate interrupts on the positive edge of a "data-word 
ready" signal from the shift registers on pin CBl. All other interrupt 
inputs are disabled. This is done by writing $07 into control register 
CRB of PIA #1 and $04 into all other control registers of the PIAs. The 
X register is used to address the PIAs. Next, T 7LAG is reset to 0, 
since it was used as a "done" flag during paper tape input, but will be 
used as a "queue empty" flag during real-time data input. Next, inter- 
rupts are directed to the real-time interrupt service routine REAL by 
loading the starting address of REAL ($5620) into the pseudo-interrupt 
vector location SDFFE. Next, the saved contents of the X register are 

restored for FORTRAN. Next, the queue pointer is initialized to the 

bottom address of the queue ($812E). The shift register is then turned 
on, to begin processing real-time data. This is done by setting bits 
5, 4, and 3 of control register CRB in PIA #2 (location $E007). Final- 
ly, the interrupt IRQ is unmasked by clearing bit "I" in the condition 

* Software provision of this feature is included in INTERR (line 74) but 
is yet untested, since the associated hardware (appropriate jumper 
wires) have not been installed (an oversight). The shift registers 
are therefore always on, making it necessary to disconnect real- 
time data from the input ("DATA-IN" jack) until the system is ready 
to process real-time data (Section 4.2, step 29, and Figure 2.4.1- 
1 ). 
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code register, and INTERR "returns." The system is then ready to pro- 
cess real-time data. 

3.3.8 ADVANC 

Subroutine ADVANC reads real-time data from the queue, tests sub- 
routine STOPER (if the queue is empty) to determine whether the operator 
has signalled the end of processing (i.e., has pressed the "S" key), 
performs some editing, and calls ANGLE each minute to load TIME, AZ, and 
EL into the "one-minute table", VL. 

The flight data, TIME, FREQ, AZ, EL, at 0.2-second data rate, are 
processed ten points at a time. The sample of ten points, however, is 
advanced only five points at a time. AMET searches for and tracks 
signal and detects switch times between signal dwells by examining in 
sequence half-overlapping 2.0-second samples of raw data. At each 
return for more data, ADVANC moves the 2.0-second ten-point sample 
(TIME, FREQ, AZ, EL) ahead one second. 

In addition, at each one minute after launch, except before the 
tracking acquisition time TGMDAQ [2 ] , ADVANC sends the ten-point sample 
to subroutine ANGLE to compute the output values of the tracking angles 
AZ and EL. The latter two quantities are stored for subroutine INTERP 
in VL(2, ) and VL(3, ), along with the associated elapsed minutes from 
launch in VL(1, ). 

As explained in Section 3.1,2 and 3.3.9, ADVANC, by setting 
INTMSK=*1, prohibits subroutine REAL from disturbing the queue while 
ADVANC is reading a point, but calls subroutine GETBCK to perform the 
work REAL was prohibited from completing. 


The flag MASK [Appendix A, ADVANC] indicates a terminating condi- 
tion, e.g., elapsed time exceeds a two-hour limit (MASK“3), or the 
operator terminated the processing (MASK*4) . 

3.3.9 REAL 

Interrupt service routine REAL is called by interrupt IRQ whenever 
a real-time word is available for input from the PIAs. It first reads 
the data from the PIAs into temporary storage variables BYTE1-BYTE10. 
It then checks the "queue busy" flag INTMSK. 

If INTMSK * 1, REAL reformats the real-time data to ten integers: 
hours, minutes, seconds, tenth-seconds, degrees of elevation, tenth- 
degrees of elevation, degrees of azimuth, tenth-degrees azimuth, the 
thousands place of the MET word, and the lower 3 digits of the MET 
word. SEAL stores these ten integers in the queue as one "real-time 
point”. If the queue is full (150 real-time points), the oldest real- 
time point is overwritten. REAL then updates the queue pointers ITOP, 
IBOT, TEMPX, sets IFLAG equal to the number of real-time points in the 
queue, and returns. 

If, on the other hand, INTMSK = 1, indicating that the AMET program 
(subroutine ADVANC) was accessing the queue at the time the interrupt 
occurred, REAL cannot also access the queue without disturbing the other 
queue activity. In this case, REAL sets INTMSK to 2 to 3how there is a 
data word in temporary storage, and returns. After the main program is 
through using the queue and sees INTMSK ■ 2, it will call GETBCK to 
complete the processing of the real-time point held in temporary stor- 
age, and add it to the queue. 



REAL is enabled when INTERR loads its starting address ($5620) in 
the pseudo-interrupt vector location ($DFFE), and is disabled when the 
MONITOR puts the address of the system error message into the pseudo- 
interrupt vector at the end of ~eal-time data processing. 

3.3.10 GETBCK 

If a real-time word arrives and the associated interrupt occurs 
while one of the AMET subroutines is taking a data point off the queue 
for processing, the queue access could be interrupted. The interrupt 
will activate the interrupt service routine REAL. Ordinarily REAL adds 
the data point to the queue, but in this case, if REAL accesses the 
queue, it will change the queue pointers, possibly causing the inter- 
rupted queue access to "lose its place." To prevent this, AMET subrou- 
tines set INTMSK, the "queue busy" flag, to "1" while they are using the 
queue, and clear it to l, l" afterward. Before it starts processing, REAL 
checks this flag, and, if it is "1", puts the data point in a temporary 
storage space, BYTE1-BYTE10 , instead of in the queue. REAL then sets 
INTMSK to "2", to notify AMET that the data point is awating processing, 
and returns. After AMET has completed its queue access, it asks whether 
INTMSK * 2. If so, it calls GETBCK to pull the data point out of tempo- 
rary storage, complete the processing left undone by REAL, and to add 
the point to the queue. 

3.3.11 ANGLE 

Subroutine ANGLE edits, condenses, and smooths input tracking angle 
data AZ(I), EL(l), I * 1, 2, 3,..., 10 (azimuth, elevation) [2]. It 
computes (when called every sixty seconds) from the ten local consecu— 
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tive (0.2-second) values, one value assigned at the midpoint, AZ(5), 
EL(5). The computed value is the mean of those points lying in the 
five-degree interval centered on the unit degrees mode of the ten input 
points. Other points, including extreme values, are therefore rejected. 

The unit degrees mode is the most populated one-degree interval 
over the ten input points. It is found by rounding to units place the 
input values and counting equal rounded values. When the distribution is 
such that more than one unit degree interval has the highest population, 
the one occurring earliest in time within the 1.0-second sample is used. 

3.3.12 TRACK 

AMET must discern from the 0.2-second raw data, first, the switch 
points, i.e., the points at which the baroswitch changes contacts (chan- 
nels), and second, a condensed representation of the signal transmitted 
while on each contact. Subroutine TRACK examines the ten-point sample 
FREQ(i), i * 1,2,3,.. .,10 to determine whether the signal is in the fre- 
quency tracking gate. If so the gate is adjusted slightly (to follow 
the signal), and TRACK continues by returning to ADVANC via MAIN for 
more data and repeating the process, and summing for the mean value of 
FREQ over the signal dwell, until the signal switches out of the gate. 
(See Reference 2, p.41) 

When the signal leaves the gate, TRACK calls SEARCH. 

3.3.13 S EARCH 

Subroutine SEARCH scans the full range of FREQ to find the signal 
(See Reference 2, p.47). SEARCH returns to ADVANC via TRACK and MAIN 
for more data until it finds the signal, and can reposition the gate for 
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TRACK. If unsuccessful, processing is terminated after 100 attempts 
( loss of signal for 50 seconds, MASK“1). Processing is terminated also 
when successful, if the undecommutated array exceeds 900 time points 
(noisy data, MASK*2). 

3.3.14 DECOM 

Subroutine DECOM determines for each condensed point, COND, it's 
proper channel (temperature, reference, • high reference, or relative 
humidity), and for each reference and humidity switch point, it's baro- 
switch contact number. A detailed discussion of subroutine DECOM is 
given in Reference 2, p.55ff. 

3.3.15 INTERP 

Subroutine INTERP by interpolation constructs a table of pressure, 
reference frequency, temperature ordinates, and relative humidity ordi- 
nates, all uniformly at one-minute intervals for input to BMET. INTER 1 ' 
automatically detects balloon burst, and thereupon terminates the real- 
time processing automatically. 

3.3.16 JUMPER 

The assembly-language subroutine JUMPER is called at the normal 
termination of the real-time data processing. JUMPER first turns off 
interrupts from the shift register, to avoid disturbing the execution of 
BMET. This is done by clearing bits 0 and 1 of register CRB in PIA #1 
(location $E003). It then jumps to location $F830 on the MONITOR, which 
sets up the system for BMET. Note that, strictly speaking, there is no 
return from the JUMPER subroutine call. 


3.4 BMET 


BMET is the output processing part of UMET-1, and consists of five 
BMET routines shown in Figure 3.3-1 above. Each is described in one of 
the following subsections. Detailed information is contained in Refer- 
ence 1, and a complete listing of each routine with comments is included 
in Appendix A. 

BMET is basically NASA Wallops Program No. 3. 0.0700 ECC-PRD, 
excluding the ozone data processing portions and modified to the limita- 
tions of the 6809 microprocessor FORTRAN. Variable names and extraneous 
parts of code, Vestiges of electrochemical cell (ECC) ozone data pro- 
cessing, input cards, and former plot and listing functions (WODC, 
etc.), remain apparent in the BMET program listing. Such features 
should not be distracting, however, but rather may be helpful to readers 
familiar with the parent program. 

3.4.1 PRDMAIN 

The function of PRDMAIN is simply to display the facts that the 
program has begun, and, subsequently, completed BMET., PRDMAIN calls 
routine PRD which conducts all the processing of BMET. Upon return from 
PRD, PRDMAIN idles (in an infinite loop) until UMET-1 is turned "off" 
(or is restarted by pressing the RESET button on the CPU board, inter- 
nally) . 


3.4.2 PRD 

Subroutine PRD utilizes input constants entered by keyboard before 
balloon release, flight data computed in real-time by AMET (one-minute 
data, VL) , and certain other quantities computed by AMET, all held in 
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common memory during the bank-switching from AMET to BMET. After ini- 
tializing BMET, PRD computes necessary calibration constants using 
portions of subroutines TEMPCE and RL, checks the one-minute data for 
obvious errors, and proceeds to process the flight data. The basic 
equations and conditions used by BMET are given in Reference 1. Subrou- 
tines TEMPCE and RL are called to convert measurement data (ordinates) 
to temperature and relative humidity values, and to compute correspond- 
ing values of certain derived meteorological quantities (dewpoint, 
virtual temperature, and vapor pressure), PRD computes geopotential 
altitude from the measured pressure and temperature values, resolves the 
components of wind after calling subroutine WINDS, and computes and 
checks potential temperature and lapse rate. Output values are inter- 
polated to standard pressure altitudes. The considerable amount of 
checking and editing done by the parent program ECC-PRD is retained in 
BMET (See Appendix A, PRD). 

3.4.3 TEMPCE 

On the first pass (ITEMP=0) subroutine TEMPCE computes from cali- 
bration inputs certain constants later used in converting temperature 
measurement data (ordinate.-) to physical units of temperature (degrees 
Kelvin). On each subsequent call, TEMPCE converts a temperature ordi- 
nate according to the equation given in Reference 1. 

3.4.4 RL 

Subroutine RL, on its first call (IH=0) computes constants needed 
later to convert ordinate values representing relative humidity to 
standard units (percent). On each subsequent call RL converts a rela- 


tive humidity ordinate to percent relative humidity, but also computes 
the vapor pressure, dewpoint, and virtual temperature, all according to 
equations described in Reference 1. 

3.4.5 WINDS 

Subroutine WINDS computes in a single pass the wind profile speed 
(SPD), and direction (DIR), from the time-dependent balloon positions 
given by the tracking angles, AZ and EL, and altitude, HGP (computed by 
PRD), at the one-minute instants TIM. The algorithm is described in 
Reference 1 . 

3.4.6 Added FORTRAN Functions 

The FORTRAN function ADIR is included in BMET to provide wind 
direction (azimuth) from the wind east-west and north-south components U 
and V. ALOGIO provides the logarithm to base ten of any real number, 
FLOAT converts an integer to a real number, and ZCOS and ZSIN provide 
the trigonometric functions cosine and sine for positive and negative 
arguments . 
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4.0 OPERATION OF UMET-1 


The UMET-1 system consists of three units (Figure 1.0-1) most 
conveniently shipped or stored in cartons designed with sufficient 
protection against shock and damage. Properly packed, the printed 
circuit boards may be left in place in the card cage for shipment and 
storage. With reasonable handling, the system can be set up and oper- 
ated with a minimum of training. The following gives a step-by-step 
procedure for setting up and operating UMET-l, and explains the prompts 
and displays presented on the video terminal during pre-and post-launch 
operation. 

4 . 1 Equipment Set Up 

Upon unpacking the three units of UMET-1, the printer and keyboard- 
video terminal should be prepared for operation according to their 
respective operator's manuals [4], [5]. Switch-settings for the termi- 
nal should be verified according to Table 1.2-1, and the printer should 
be loaded with continuous fan- fold paper. 

Any packing materials inside the central unit should be removed, 
printed-circuit boards re-secured in their proper positions according to 
Table 2.1-1, and front panel switches turned off. Flat cable C3 from 
the front panel inside the central unit, should be connected to edge 
connector P2 on the Input Board (note the white painted mark keying the 
front side of the cable connector). Front panel connections of cable C3 
include the real-time data jack ("DATA IN"), paper tape reader head, and 
its switch ("ON, PCAL READER"). 


Connect flat cable C2 (printer cable) to edge connector P4 on the 
CPU Board (note the slot key between contacts 7 and 9). Connect the 
other end of cable C2 to the edge connector at the rear of the printer, 
again taking note of the slot key. 

Connect flat cable Cl (the keyboard-video terminal cable) to the 
edge connector P2 on the CPU Board (assure that connector pins (contact 
numbers) correspond, with contact numbers (#1, #2, #3, .,.) increasing 
from left to right on the CPU Board). Connect the other end of cable Cl 
to the "D-type" connector (P3, RS-232) on the terminal. 

Connect the units to 120 VAC power, and turn "ON" the power switch 
on each unit. The red light at the "POWER" switch should indicate that 
power is on, and the video screen should display the UMET-1 header: 


UNIVERSITY OF UTAH 

******************************* UMET-1 ********************************* 
REAL TIME PROCESSING OF METEOROLOGICAL BALLOON SOUNDING DATA 

Potentiometer R4 (Ref. Voltage Adjust) on the Input Board (Figure 
C-4) adjusts the threshold of the input comparator (Ul). In some cases, 
such as when the real-time data are played from an analog instrumenta- 
tion tape recorder or from other than the TRADAT system, it may be 
necessary to adjust R4 according to the amplitude, bias, and quality of 
the input voltage. Such an adjustment is easily facilitated by monitor- 
ing the input and output of comparator Ul using an oscilloscope. This 
adjustment, if necessary, can be made using any representative interval 
of the input signal at the "DATA-IN" jack. 
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Having proper output at comparator Ul, ready conditions at each of 
the three units, and the "DATA-IN" jack disconnected, the UMET-1 is 
ready for keyboard inputs associated with the RAWINSONDE sounding at 
hand. The following describes the operating procedure at the keyboard. 

4.2 Operating Procedure 

1. Turn "ON" the power switch. The terminal immediately displays 
a UMET-1 header and requests the following keyboard inputs in 
turn: 

2. Enter the "printer output code", normally "1". (Press the "1" 
key, then the "enter" key). Additional diagnostic information 
can be printed after or during real-time data processing by 
choosing "2" or "3" instead of "1", but the additional infor- 
mation takes considerable time and paper, and is useful only 
to one who is intimately familiar with the processing algo- 
rithm. After the operator enters his choice, the printer 
prints a UMET-1 header and labels the next following printout 
"INPUT DATA". 

3. Enter station ID ("72" for NASA Wallops Flight Center). 
(Station IDs and geopotential heights are listed in Reference 
1, Table 1). 

4. Enter station geopotential height in meters ("4.0" for NASA 
Wallops Flight Center at Meteorological Station, Bldg. X-85). 

5. Enter zero azimuth, "0" for north, "1" for south. This is 
determined by the tracking system used. 

6. Enter launch month of the year, integer "1" to "12". 
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7. Enter launch day of the month, integer "1" to "31". 

8. Enter launch year, two digit integer, e.g., "83". 

9. Enter the meteorological temperature at the station (launch 
site), (degrees centigrade). 

10. Enter the local relative humidity at the station (X). 

11. Enter the atmospheric pressure at the station (millibars). 

12. Enter the local wind speed at the station (meters per second). 

13. Enter the local wind direction at the station (degrees). 

14. Enter sonde ID, limited to an integer less than 32000. 

15. Enter "unadjusted reference ordinate", less than 100, to 
nearest tenth. This is the ordinate corresponding to the 
reference frequency at launch, when the recorder scale factor 
(reference adjustment) is such that a 60 hertz input corre- 
sponds to an orainate of 30 (see [2], p.ll). This value is 
determined by measurements of sonde output before balloon 
release . 

16. Enter air temperature calibration (ordinate value correspond- 
ing to 30 degrees centigrade). 

17. Enter relative humidity calibration (ordinate value corre- 
sponding to -40 degrees C and 46 ordinates). 

18. Enter air temperature ordinates at balloon release. 

19. Enter relative humidity ordinates at balloon release. 

20. Enter sonde type, normally "2 ,c for the standard National 
Weather Service sensors [temperature element ML -419, relative 
humidity element ML-476 (carbon)]. 
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Enter baroswitch contact numbers ac burst, if known (as when 
processing recorded data). No entry defaults to the maximum 
value, 180. The printer then lists all of the above inputs. 

22. Enter the choice: "1" if the baroswitch pressure calibration 
table will be entered by punched paper tape, or "2" if by 
keyboard . 

23. Enter the PCAL table accordingly. If by punched paper tape: 
place leading end of the tape in the reader head, properly 
seat the tape and close the head, position the tape with at 
least five rows of "all holes punched" (DELETES) preceding the 
punched data. Turn "ON" the tape reader, and pull the tape 
through from left to right at any speed but without reversing 
the direction. After the tape is pulled completely through, 
turn "OFF" the tape reader. The printer tabulates the pres- 
sure calibration values read from the punched paper tape, the 
"effective" baroswitch contact number at launch (to the near- 
est one-hundredth contact position), and the highest contact 
number calibrated. The terminal then requests acceptance or 
rejection of the pressure calibration table. 

24. Enter acceptance, "1", or rejection, "2", of the PCAL table. 
If rejected the terminal requests repeat from step 23 above. 

25. Enter the hour of launch, two-digit integer "1" to "23", 
Greenwich Meridian Time. 

26. Enter minutes of launch time, two-digit integer "1" to "59". 

27. Enter seconds of launch time, to the nearest tenth second. 
The terminal offers the opportunity to re-enter the launch 
time in case of launch delays. 
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28. Enter rejection ("2") of the entered launch time and repeat 
from step 25 above (this allows last minute changes in the 
launch time), or enter acceptance ("1") so UMET-1 can begin 
accepting input data, reading the time word, "counting down'* 
to launch time, and, at launch, to begin to process the input 
data. If a launch abort occurs after acceptance of the 
entered launch time, UMET-1 must be restarted (turned "OFF", 
then "ON") to initiate a new sounding. 

29. After acceptance of the entered launch time, plug in (at "DATA 
IN") input data from the TRADAT or magnetic tape playback 
system. No further action is necessary on the part of the 
operator until balloon apogee. (Reliable operation requires 
that no real-time data be applied to the DATA-IN jack until 
acceptance of launch time in step #28 above. Software provi- 
sion to automatically inhibit premature interrupts from the 
real-time circuit, not completed at the termination of the 
project, is a recommended future improvement.) 

30. Enter "S" key (upper case, shift, or alpha-lock S) to termi- 
nate real-time data processing. This normally should occur at 
apogee (balloon burst), but may be used for any reason. 

31. Turn "OFF" the power switch after the terminal displays "NOR- 
MAL PROGRAM TERMINATION". 

4.3 Description of Video Display Output 

After acceptance of the launch time entered by keyboard (4.2 step 
28), the terminal displays "*** SET UP TO RECEIVE REAL TIME DATA ***," 
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and real-time data is plugged in at the "DATA-IN" jack, the system 
starts reading appropriate biphase signal (see Section 2.3,1). As the 
time word in the data approaches balloon release time (entered in steps 
25, 26, 27, Section 4.2 above), the terminal displays the time-to-go 
(negative values of elapsed time from launch) each second. After launch 
time, the terminal displays the condensed points [2] as they are com- 
puted. The index, elapsed time (time of occurrence in seconds after 
launch), dwell time (duration of the condensed point in seconds), and 
the mean frequency of the condensed point are displayed. The progress 
of the processing is conveniently monitored by observing the condensed 
points. The operator also may verify balloon burst and discern other 
facts concerning sonc performance. 

After each reference point is processed, the terminal displays the 
progress of the automatic adjustment of the reference frequency thresh- 
holds RFL and PFL [2]. Sonde frequencies above RFL are identified as 
reference signal — these above PFL are distinguished as high refer- 
ence. Since sondes differ in reference frequency, and drift in fre- 
quency during flight, UMET automatically adjusts RFL and PFL by "track- 
ing" the sonde reference frequency. The display periodically shows the 
received C0HD3 (current reference frequency), and the computed RFL and 
PFL. 

Occasionally, the balloonsonde "ices" and temporarily reverses its 
ascent. An AMET (DECOM) algorithm treats such special cases but also 
notes in the output the time and contact number at which each dip 
occurred . 
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At termination of real-time processing, the terminal rapidly dis- 
plays intermediate information (decoramutation parameters for etch con- 
densed point) which can be ignored under normal operation. This diag- 
nostic information is printed, if desired, under printer options 2 and 3 
(4.2, step 2). The display indicates "REAL TIME PROCESSING COMPLETE," 
and the terminating condition, e.g., "STOPPED BY THE OPERATOR." 

Successful bank switching from AMET to BMET (Section 3.0) is sig- 
naled by the terminal display: "AT THE START OF PRD." After a few 
minutes of processing by BMET and subsequent printing of BMET output, 
the terminal displays "NORMAL PROGRAM TERMINATION." 
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5.0 CONCLUSIONS AND RECOMMENDATIONS 


UMET-1 demonstrates the utility and practicality of a rather power- 
ful, portable, on-site, ireal-time data processing capability for meteo- 
rological soundings. additional effort, of course, would both improve 
the existing system and extend its applicability. Examples for improve- 
ment include the addition of the recommended real-time plotting feature 
(see Section l.l), the installation of connectors at the rear panel of 
the central unit for connecting cables to the printer and keyboard 
terminal, and a more secure placement of the input cable C3 inside the 
front panel of the central unit. Correcting the address error in Sub- 
routine OFF (Section 3.3.6) would eliminate the necessity of turning off 
the paper tape reader head (Section 4.2, step 23) after use, and com- 
pleting the implementation of software control of the real-time input 
shift registers (Section 3.3.7) would eliminate the necessity of leaving 
the "DATA-IN" jack disconnected during the preflight input procedure. 
Further operational experience with the system will suggest additional 
adjustments both in hardware and software. 

Considerable optimization of the software is recommended in subse- 
quent versions of UMET. Existing programs RAWINPROC and ECC-PRD were 
adapted for UMET-1, deliberately with a minimum of software redesign. 
As a result, though familiar relative to the earlier processors, the 
system makes little use of advantages attending local, automated real- 
time operation. Reference to "ordinates" both in the input and output 
processes of AMET, and the "one-minute" condensation of data for BMET, 
are examples of unnecessary vestiges of antiquated systems. The entire 
preflight procedure can be considerably simplified. 
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Optimization nevertheless should retain consistency with the pre- 
ceding systems, or at least clearly address the impact on meteorological 
statistics drawn froji the new versus old processing systems. Of course, 
an improved system should maintain adequate backup and monitoring provi- 
sions to assure confidence and reliability. Real-time data should be 
recorded routinely to facilitate post-flight playback and processing. 
Automatic processing should accommodate available human assistance 
through occasional "trouble spots" in the data, particularly during 
reprocessing when "foresight" is provided from preceding passes of the 
flight data through the processor. 

The UMET concept applies to other meteorological sounding systems, 
including rocket meteorological systems. Though initial programming for 
the DATASONDE has been done (Appendix 5 ) , field-recorded flight data are 
needed to complete the design of the associated firmware. 

Redesign to rechargeable battery power would increase both utility 
for remote operations, and immunity to power irregularities in general. 
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APPENDIX A 


Program Listings 

Complete listings or MONITOR, AMET, and BMET are given below. The 
subroutines of each are in alphabetic order. Also included in AMET is 
COMMON, and in BMET is PRDCOM, the common memory between AMET and BMET. 


fl 



UMET-1 



MONITOR 


AUGUST 1982 

00001 





OPT 

L 


00002 

F800 




0?.G 

$F800 


00003 

F800 

1A 

FF 


ORCC 

#$FF 

disable T RQ interrupt 

00004 

F802 

86 

81 


LDA 

#$81 

.load page 

00005 

F804 

IF 

8B 


TFR 

A, DP 

register . th $81 (?) 

00006 

F806 

2 



NOP 



00007 

F807 

12 



NOP 



00008 

F808 

12 



NOP 



00009 

F809 

12 



NOP 



00010 

F80A 

86 

03 


LDA 

#$03 

reset the ACIA 

00011 

F80C 

B7 

ECU 


STA 

$EC14 


00012 

F80F 

86 

51 


LDA 

#$51 

configure ACIA 

00013 

F811 

B7 

ECU 


STA 

$EC14 

for 7 bits, no parity 

00014 

F814 

86 

00 


LDA 

#$00 

zero all RAM 

00015 

F816 

1C 

FB 


ANDCC 

#$FB 

( locations 

00016 

F818 

8E 

8000 


LDX 

#$8. 

$8000-$DFFF) 

00017 

F81B 

A7 

80 

AGAIN 

STA 

,x+ 


00018 

F81D 

8C 

DFFF 


CMPX 

#$DFFF 


00019 

F820 

26 

F9 


BNE 

AGAIN 


00020 

F822 

86 

31 


LDA 

#$30 


00021 

F824 

B7 

E002 


STA 

$E003 

select Bank A (AMET) 

00022 

F827 

86 

7E 


LDA 

#$7E 

set up "pseudo-interrupt 

00023 

F829 

B7 

DFFD 


STA 

$DFFD 

vector" jump 








instruction 

00024 

F82C 

OC 

FB 


ANDCC 

#$FB 


00025 

F82E 

7E 

0050 


JMP 

$0050 

.start AMET 

00026 

F831 

OC 

FB 


ANDCC 

#$FB 


00027 

F833 

86 

38 


LDA 

#$E8 


00028 

F835 

B7 

E003 


STA 

$E003 

select Bank B (BMET) 

00029 

F838 

8E 

AOOO 


LDX 

#$A000 

zero RAM 

00030 

F83B 

86 

00 


LDA 

#$00 

from $A000 to $DFFF 

00031 

F83D 

A7 

80 

BOZO 

STA 

,x+ 


00032 

F83F 

8C 

EOOO 


CMPX 

#$EOOO 


00033 

F842 

26 

FS 


BNE 

BOZO 


00034 

F844 

1C 

FB 


ANDCC 

#$FB 


00035 

F846 

86 

7S 


LDA 

#$7E 

[cause IRQ interrupts 

00036 

F848 

B7 

DFFD 


STA 

$DFFD 

,to trigger 

00037 

F84B 

cc 

F900 


LDD 

#$F900 

[System Error Message 

00038 

F84E 

FD 

DFFE 


STD 

$DFFE 


00039 

F851 

7E 

0150 


JMP 

$0150 

start BMET 

00040 

F900 




ORG 

$F900 

.SYSTEM ERROR MESSAGE 








ROUTINE 

00041 

F900 

1C 

FB 


ANDCC 

#$ FB 


00042 

F902 

8E 

FAOO 


LDX 

#$FA00 

X reg » loc. of 1st 








char. 

00043 

F905 

E6 

80 

DOG 

LDB 

,x+ 

get a character, incr. X 

00044 

F907 

B6 

EC14 

PRINT 1 

LDA 

$ECU 

loop until terminal 

00045 

F90A 

84 

92 


ANDA 

#$02 

is free . 

00046 

F90C 

27 

F9 


BEQ 

PRINTl 


00047 

F90E 

F7 

EC15 


STB 

$EC15 

send char, to terminal 




00048 

F911 

1C 

FB 

ANDCC 

#$FB 


00049 

F913 

8C 

FA37 

CMPX 

#$FA37 

reached end of message? 

00050 

F916 

27 

03 

BEQ 

BA300N 

if so, go to return 
(BABOON) 

00051 

F918 

7E 

F905 

JMP 

DOG 

if not, get next 
char , (DOG) 

00052 

F91B 

12 


BABOON NOP 



00053 

F91C 

3B 


RTI 


return from interrupt 

00054 

FAOO 



ORF 

$FAOO 


00055 

FAOO 


ODOA 

FDB 

$ODOA,$OAOA 

00056 

FA04 


2A 

FCB 

$2A 

* 

00057 

FA05 


2A 

FCB 

$2A 

* 

00058 

FA06 


2A 

FCB 

$2A 

* 

00059 

FA07 


2A 

FCB 

$2A ' 

* 

00060 

FA08 


20 

FCh 

$20 


00061 

FA09 


57 

FCB 

$57 

W 

00062 

FAOA 


41 

FCB 

$41 

A 

00063 

FAOB 


52 

FCB 

$52 

R 

00064 

FAOC 


4E 

FCB 

$4E 

N 

00065 

FAOD 


49 

FCB 

$49 

I 

00066 

FAOE 


4E 

FCB 

$4E 

N 

00067 

FAOF 


47 

FCB 

$47 

G 

00068 

FA10 


20 

FCB 

$20 


00069 

FA11 


53 

FCB 

$53 

S 

00070 

FA12 


59 

FCB 

$59 

Y 

00071 

FA13 


5354 

FDB 

$5354 

ST 

00072 

FA15 


454D 

FDB 

$454D 

EM 

00073 

FA1 7 


2049 

FDB 

$2049 

I 

00074 

FA19 


4E54 

FDB 

$4E54 

NT 

00075 

FA1B 


4552 

FDB 

$4552 

ER 

00076 

FA1D 


5255 

FDB 

$5255 

RU 

00077 

FA1F 


5054 

FDB 

$5054 

PT 

00078 

FA21 


2045 

FDB 

$2045 

E 

00079 

FA23 


5252 

FDB 

$5252 

RR 

00080 

FA25 


4F52 

FDB 

$4F52 

OR 

00081 

FA27 


204F 

FDB 

$204F 

H 

00082 

FA29 


4153 

FOB 

$4153 

AS 

00083 

FA2B 


204F 

FDB 

$204F 

O 

00084 

FA2D 


4343 

FDB 

$4343 

CC 

00085 

FA2F 


5552 

FDB 

$5552 

UR 

00086 

FA31 


4544 

FDB 

$4544 

ED 

00087 

FA33 


20 2A 

FDB 

$20 2 A 

* 

00088 

FA35 


2A2A 

FDB 

$2A2A 

** 

00089 

FA37 


2A2A 

FDB 

$2A2A 

** 

00090 

FFF2 



ORG 

$FFF2 ; 

Interrupt vectors : 

00091 

FFF2 


F900 

FDB 

$F900 ;SW3, to System Error Msg. 

00092 

FFF4 


F900 

FDB 

$F900 ;SW2, to System Error Msg. 

00093 

FFF6 


F900 

FDB 

$F900 ;FXRQ 3 to System Error Msg. 

00094 

FFF8 


DFFD 

FDB 

$DFFD ;IRQ,to pseudo-interrupt 






vector 

00095 

FFFA 


F900 

FDB 

$F900 ;SW1, to System Error Msg. 

00096 

FFFC 


F900 

FDB 

$F900 ;NMI, to System Error Msg. 

00097 

FFFE 


F800 

FDB 

$F800 ; RESET, to Monitor 


PAGE 

0001 
0 0 02 
0 0 03 
ono4 
0 0 05 
0 0 06 
0 007 
0008 
0 009 
0010 
0 011 
0012 

0013 

0014 
0 015 
0016 
0 01.7 
0018 

0019 

0020 
01)21 
0022 
0023 
0 024 
0 025 
0026 
0 0 27 
0020 
0 0 29 

0030 

0031 
0 032 
0033 
0 034 

0035 

0036 

0037 

0038 
01)39 
0 040 
0041 
0 042 
0 043 
0 0 44 

0045 

0046 
0 047 
0 0 40 

0049 

0050 

0051 
0 052 
0053 
0 0 54 
0055 
0 056 
0 057 
0 058 



OF K' ■ *•- 


ooi advance: ,sa:i umet-i 


15 DEC 1982 


SUBROUTINE ADVANC ( J J , TSTOF’ , TLANCH , TGMDAQ • MASK > 

* 

UUKXXXXXIIMKXIIIIMIMXXII COMMON BLOCK I************************ >ml 
X 

INCLUDE ' COMMON. SA' 


iiiui»>xix><i>i«xxm(iiiitxMxixtm»imixxi«mi(xxmii 1 'ixx I ixmi 

C 

C ADVANCE, 5 NEW RAW DATA POINTS. 


DO 2 JI=1 ,5 
J5= JI+5 

TIME ( JI > =TIME ( J5 > 

FF:EQ(JI)=FREQ(J5) 

AZC JI)=AZC J5) 

EL( JI)=EL< J5) 

2 CONTINUE 
x 

**** HANDLE REAL TIME DATA xxxxxxxxxxiixixixxxixixxxixxxxxxxxxixxxixix 
4087 DO 3 J=6,10 

3223 IF (IFLAG .GT. 0)GOTO 3224 
CALL S TOPER 

IFCISTPER .NE. DGOTO 3223 5 IF STOP IS HIT ISTPER=1 

MASK=4 

RETURN 

3224 INTMSK=1 

IFCIBOT .GE. 150)IBOT=0 JIBOT POINTS TO OLDEST NOT YET PROCESSED POI 
IDUM=IBOT*10 

IBQT=IBOT+l STHE IDATA ARRAY IS ONLY 75 POINTS LONG 

IFLAG=IFLAG-1 

DUMH Y=ID AT A C IDUM+9 ) 

DUMMY 1=IDATA ( IDUh+1 0 > 

FREQ C J)=(DUMMY*1 000 i+DUMMYl 
DUrtrtY=IDAT A ( IDUM+6 ) 

DUMMY l=TDATA(IDUM+r> 

EL ( J ) =DUMM Y 1+ C DUMMY- .01) 

DUMMY=IDATA (IDUM+B ) 

DUMMY1=IDATA (IDUM+7 ) 

AZ t J ) =DUMMY 1 + (DUMMY* ,01) 

DU(1MY=IDATA(IDUM+4) 

DUMMY 1=IDATA (IDUM+3 > 

SECS=DUMMY1+ < DUMMY* . 1 ) 

DUMMY=IDATA(IDUM+2) 

AMINU=DUMHY*6U ,+SECS 
HOURS= C IDATA ( IDUM+1))*3600. 

TIME( J ) -HOURS+AMINU-TLANCH J TIME IS IN SECONDS FROM LAUNCH 
IF (INTMSK .EQ. 1 )GOtO 444 
CALL GETBCK 
444 INTMSK=0 

IF (TIME ( J) ,LT. TIME( J-l) )GOTO 5 
DUMMY=TIME( J-D+60, 

IF ( TIM£( J ) .GT. DUMMY ) GOTO 5 

* 

xxxxiiixixx REAL TIME DATA NOW IN PROGRAM xxxxxxxxximx 
2204 IF ( EL ( J > .GE. 90.0) EL(J) = .l 


F'AGE 

0059 

0060 
0 0 61 
0062 
0063 
0 0 64 

0065 

0066 
0 067 
0 0 60S 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 
0 080 
0081 
0 0 82 

0083 

0084 

0085 

0086 
0 037 
0 083 
0 089 

0090 

0091 
0 092 

0093 

0094 
0 0 9S 
0096 
0 097 
0098 
0 099 


002 


a 


5 


3 


a 


OF PC Git 


ADVANCE . 

sa:i 

UMET-1 

IFCELt J) 

.LT. 

0.1)EL(J)*.l 

IF<AZ(J) 

.GE. 

360,0) AZt J)=. 1 

IF ( AZ(J> 

.LT. 

0. 1)AZ( J) = .l 


IF < FREQ ( J > .LT. 1,0) GOTO 5 
FREQ ( J ) =1 / ( FREQ (J)a. 000001) 


Quality 


15 OEC 1982 


REAL DATA IS SOMETIMES 0.0 
DATA COMES IN IN USEC 


IF<FREQ< J) .LT. 4.8 .OR. FREQ(J) .GT. 200.) GO TO 5 
GO TO 3 
J=J~1 
CONTINUE 

IF (TIME ( 9 > .GT. TSTOF' ) GOTO 100 


* INCREMENT T AE'-LE AND ENTER GMD ANGLES 

a 

51 IF ( TIME ( 4 > .LT. VL(1,LIST)> GO TO 53 

IF ( TIME( 4 ) .LT. TGMDAQ) GO TO 52 
iimuxiiKiiiumm CALL ANGLE xxxxxxaxxxxaxaxaaxaa 
CALL ANGLE 
UL ( 2 . LIST ) =AZ ( 5 ) 

VL ( 3 * LIST ) =EL (5 > 

52 LIST=LIST+1 

IF (LIST .GE. 120) GOTO 128 ?VL TABLE IS FULL 

VL(1, LIST >=UL ( 1 , LIST-1 ) +DLIST 
GO TO 51 
53 CONTINUE 
RETURN 


82 CONTINUE 
C 

C END OF DATA 

C 

MASK=2 

RETURN 

C 

100 MASK=1 
RETURN 
C 

128 MASK =3 
RETURN 
END 


ANCLE 


Sa: i 


UMET-1 


15 DEC 1982 


PACE 001 


0001 
0 0 02 
o on 
0 0 04 
0 005 
00 06 
0 0 07 
(10(18 
0 0 09 

noio 

0011 

0012 

0013 

non 
a oi if. 
0016 
0017 
0 0 IB 
0 019 
0 0 20 
0021 
0 022 
0 023 
0 024 
0 025 
(10 26 
0 027 


SUBROUTINE ANGLE 

* 

»*.** ****COMMON BLQ CK k*:».x » • ***** 

x 

INCLUDE ' COMMON . SA ' 

x 

xxxaxxxwxxxxx»xxxKxxxsxxxKxxxxx»rx*xw»xxxxxx»:xxxxxxxxx*xxxKMxxxxxxaxx 

DIMENSION NIAZ (10), NIEL (10), 1AZ (10), IEL (10) 

X 

* INITIALIZE AND QUANTIZE 

x 

00 11 K=1 , 1 0 

fJJAZ ( ) =0 

NIEL <K)=0 

IAZ C K ) = A2 ( K ) +0 • 5 

IEL ( K)=EL (K )+0 , 5 

11 CONTINUE 
x 

X COUNT FOE' DISTRIBUTION 

x 

DO 10 K=1 , 9 
LL=11-K 
DD 12 L=1,LL 

IF (IAZ(LL) .EG. IAZ(D) NIAZ(LL)=NIAZ(LL>+1 
IF (IEL(LL) .EG. IEL(L)> NIEL< LL)=NIEL(LL) +1 

12 CONTINUE 
10 CONTINUE 


0 0 28 * 
0029 * 
(1030 x 

0031 

0032 

0033 
0 034 
(1035 

0036 13 

0 037 x 
0 0 38 * 

0039 x 

0040 
0 041 
0 042 

0043 

0044 

0045 

0046 
0 047 

0048 14 

0049 

0050 

0051 

0052 

0053 

0054 

0055 15 
0 056 x 
0057 * 

0 05B * 


DETERMINE MODE INTERVAL 


KMA=1 

KME-1 

DO 13 H—2 , 1 0 

IF ( NIAZ(K) ,GT. NIAZ(KMA) ) KHA=K 
IF ( NIEL ( K ) .GT. NIEL(KME) ) KME-K 
CONTINUE 

COMPUTE MEAN IN MODE INTERVAL 

SUMA=0 , 

NSUMA=0 
DO 14 K=1 , 1 0 
IDUM=IAZ (IO-IAZ ( KMA ) 

IDUM 3. =ABS ' IDUM ) 

IF ( IDIJM1 .GT. 2) GOTO 14 
SUMA=SUMA+AZ(K) 

NSUMA=NSUMA+1 

CONTINUE 

SUME=0. 

NSUME=0 
DO 15 K=1 ,10 

IF ( IELCt! ) .NE. IEL(KHE) ) GO TO 15 
SUME=SUME+EL ( K ) 

NSUME=N5UME+i 

CONTINUE 


OUTPUT 


OF PGGl? 


jV ' . ] IVV 


PACE 002 

ANGLE .SA:i 

UHET-1 

IS 

DEC 1902 

oos? 

DUMMY = N5UMA 

{THIS CHANGES 

AN INTEGER DATA 

TO TLOATING P0IW 

0060 

DUMMY1= N5UME 




0 061 

AZ ( 5 )=SUMA/DUMMY 




0062 

EL(5)=SUME/DUMMY1 




0063 

RETURN 




0 0 6^ 

END 





F'AGE 001 


COMMON 


sa;i 


UMET-1 


15 DEC 1982 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 


IFLAG > JUNK < 7 > , ISTPER % IXXX , INTMSK i IRAM < 10 ) . ITDF' . IE;QT {FOR REAL TIME 
IDA1 A ( 150 0 ) , VL (7, 120 ) , SECS, DUMMY, DUMMY 1 , IDUMH , IDUMM1 , AMINU 
IDSTAT , IDSOND , IHONTH , IDA Y , IYEAR , HEIGHT , FRO , FTEMP0 
FRQ,RECTP,CALRH,ICRE:N,CBRST,NCDS,IOUT,VSFC,DSFC {PASS TO F'RD 
SURT.SURH.IAZU, 11,12, TS3 {PASS DATA TO PRD 

LIST .DLIST , SIGMAX , SIGMIN , HGATE , IN , SIGLEV , NSUM ,FSUh 
TBRST.IOIN.ITYPE 

AZ<10),EL(1Q) .TIME(10),FREC5<10),VZ<7) 

ICOND(Z>900>« COND (3,900) , THAN < A 5 , ICMAN(A) 

PCALUS0) » TEST (10) 


F'AGE 

0 001 
0 002 
0 0 03 
0 0 04 
0 0 OS 
0006 
00 07 
0 008 
0 0 09 
0010 
0011 
0 012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0 022 
0 0 23 
0 024 
0 0 25 
0 026 
0 027 
0 023 
0 029 
0 030 
0 031 
0 032 
0 033 
0034 
0 035 
0 036 
0 037 
0 0313 

0039 

0040 

0041 
0 0 42 
0043 
0 0 44 
0045 
0 046 
0 047 
0 0 4 B 
0049 
COSO 
U 051 
0 052 
0053 
0 054 
0055 
0 0 56 
0 057 
0 05B 


DECOM 

.SA51 

UMET-1 


15 DEC 1982 


SUBROUTINE 

DECOM 

DECOM 

DECOM DECOM 


SUBROUTINE DECOM C JK ,TNOH , DSL , FHUM , ICR1 , RFL , F'FL , IDG ) 

x 

*********************** COMMON BLOCK*********************************** 
* 

INCLUDE ' COMMON. SA' 


■*XXX*X**X*X*XXXX*X*X*S*SSX«*XX*XK***XXKXX*****X ****** ********************* 

a 

DIMENSION DWELT (10), TDWELT < 10 ) , SDWELTUO) 
x 
C 
C 

C INITIALIZE DECOM 

C 

IF ( JK .GT. nGDTO 5 

DRF'FL=2.0 

RFSUM=0 . 0 

RTSUM=0 .0 

TR=0 . 0 

AMLT=1 0 0.0 

MLT=1 0 0 

GTEMF'=4 , 0 

TSL=0 . 0 

ESL=0.0 

TR1=0 . 0 

INCH=0 

JKR=0 

NOH=0 

JKF'=0 

ICM=0 

JKR1=0 

Ml=l 

ICR=0 

KROSS-O 

NXTF'=0 


* 

C 

c 

c 

c 

c 

c 

* 


* 

c 


CONTACT NRS . , ICR, ETC., ARE ALL MULTIPLIED BY MLT 
IN SUBROUTINE DECOM ONLY. 

ICOND ( 2 , ) IS NOT MULTIPLIED BY MLT. ALSO IN UMET, THE 
OLD VALUES REVISED IN BACK ASSIGNING (USING 
100 OX SHIFT, ETC. 5 ARE DELETED BECAUSE INTEGERS ARE 
LIMITED TO 2**15 IE 32K. 


CONTINUE 

IFtNXTP ,EO. Q)NXTF = 30*MLT 

REJECT SHORT DWELLS 


IF ( COND < 2 , JK ) .GT. 1.9) GO TO 0 
ICOND (1,JK) = B 
GO TO 900 
C 

B T = CONDU.JK) {ELAPSED TIME TO LEADING EDGE 

DWELL = COND < 2 , JK ) {DWELL TIME 


PACE 002 
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0 059 
0060 
0061 
0062 

X 

0063 

X 

0 064 

C 

0 065 

X 

0066 

X 

0067 

0068 

X 

0069 

178 

0070 

0071 
0 072 
0073 

179 

0074 
0 075 

0076 

0077 
0070 

X 

0079 

10 

0030 
0 081 
0082 

X 

0083 

C 

0084 

X 

0085 

X 

0036 

C 

0 087 

X 

0088 

7B 

0 U89 
0090 
0095 
0092 
0 093 

220 0 

0 D94 
0 095 

C 

0 096 

X 

0097 

702 

0098 

0099 

0100 
0101 
0102 

2210 

0103 

781 

0104 

0105 

0106 

0107 

0108 

X 

0109 

783 

0110 

0111 

X 

0112 

C 

0113 

X 

0114 

0115 

X 

0116 

C 


D = COND(3,JIO {VALUE (FRED) 

TE: = T + DWELL/2. 

IF (D .GT. RFLJGO TO 200 


PROCESS -A- 


IF ( TBRST .GT. l.E2Q)GO TO 10 

IF (Ml .LT. 0 ) GO TO 179 
ICR1 =■ ICR 
SLOP1 = SLOPE 

JKR1 = JKR 
TR1 =* TR 
Ml * 1 
KROSS * 0 
GO TO 70 

IF ( INCH ,NE. 2) GO TO 78 510 

IF (JKR .EG. 0 ) GO TO 782 
GO TO 600 


FORWARD-ASSIGN BETWEEN REFERENCES 


TEMPERATURE GATE 


CONTINUE 

TF = DSL + ESL *(TE: - TSL ) 
DUMMY =D-TF 

IF (DUMMY .GT. 0.0) GOTO 2200 
DUMMY = DUMMY* (-1) 

IF (DUMMY .GT. GTEMFOGD TO 783 

A TEMPERATURE DATUM 


ESL1 = ESL 

ESL = . B*ESL + . 2*(D-DSL)/( TEi-TSL) 

DUMMY = ESL-ESL1 

IF (DUMMY .GT.0.0) GOTO 2210 

DUMMY = DUMMY* (-1) 

IF (DUMMY .GT. .2>£SL * ESL1 

DSL = . 8*DSL + .2*0 

TSL = TB 

ICONDU.JKl e 1 

INCH = 1 

GO TO 900 

IF ( NOH .EG. DGC TO 784 5783 

IF (JKR .EQ. 0 ) GO TO 785 

ASSURE DWELL SUCCEEDING THE REFERENCE IS A TEMPERATURE. 
IF ( T ,GT. TR + .8*SL0F'E ) GO TO 785 

RESTORE TEMPERATURE FREQUENCY GATE 
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0117 ■ 

0118 7831 ESL * 0.0 

0119 KROSS = 1 

0120 GO TO 781 

0121 

0122 78* IF (INCH .EO. 2)G0 TO 7831 

0123 ICOND <l,JIO = 7 

012* INCH = 5 

0125 GO TO 900 

0126 

0127 C PROCESS THIS NON-REFERENCE. NON-TEMPERATURE 

0128 « 

0129 785 CONTINUE 

0130 IF < INCH .N£. 1) GO TO 788 

0131 « 

0132 C A CONTACT SWITCH POINT 

0133 ■ 

013* IF ( ICM .NE. 0) GO TO 786 

0 135 ■ 

0136 C FIRST CONTACT SWITCH POINT 

0137 « 

0138 IDUMMY=ICR1/MLT 

0139 ICM = ( IDUMMY+1 > *MLT 

01*0 IDUMMY = ICM-ICR1 

01*1 DUMMY = IDUMMY 

01*2 SL0P2 = AMLTkT/DUMMY 

01*3 GO TO 787 

01 ** 

0 1*5 786 IDC = ( T-T2 ) /SLOF'2 .5 

01*6 IDC = IDC*MLT 

01*7 IF (IDC .LT. MLT )GO TO 789 

0 1*E! IDUMMY = ICR1/(5*MLT> 

01*9 IDUMM1 = IDUMMY«5+5 

0150 IF ( ICM+IDC . LT.IDUMMl*MLT>GO TO 7861 

0151 ICQND ( 1 , JK ) = 6 

0152 KROSS = 1 

0153 INCH = 5 

015* GO TO 900 

0155 * 

0156 7861 CONTINUE 

0157 ICM = ICM + IDC 

0158 SL0P2 = AMLT* ( T-T2 ) /IDC 

0159 787 ICOND < 2 , UK ) = ICM/MLT 5707 

0160 T2 = T 

0161 C AN HUMIDITY DATUM 

0162 * 

0163 788 ICOND ( 1 . JK > = * 

016* INCH = * 

0165 FHUM - D 

0166 GO TO 900 
0 1 67 

0168 C EARL1 CONTACT. POSSIBLE BALLOON DIP 

0169 

0170 789 Ml = 0 

0171 ICOND<l,JK) = 5 

0172 INCH = 5 

0173 GO TO 900 
017* * 
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0175 

C 

PROCESS -E:- 

0176 

X 


01 77 

C 

PROCESS THE PRECEDING REFERENCE 

0X78 

C 

CHECK FOR BURST AND BACK-ASSIGN AS APPROPRIATE. 

0179 

X 


0180 

600 

CONDO, JKF:> = RFSUM/RTSUM 

oiei 


COND(2, JKR) = RTSUrt 

0182 


TR = CONDC 1 , JKR) 

0183 


IF < ICR .NE, 0 ) GO TO 610 

018<1 

C 

FIRST REFERENCE 

0185 

X 


0186 


ICRE: = 1R/90. + .5 

0 1 87 


ICREU = ICR1/(5«MLT) * 

0188 


IF (ICRB .EG. 0)ICRB=1 

0189 


ICR= ( ICREU +ICRB ) • 5«HLT 

019(1 


XDUMMY=ICK-ICR1 

0191 


DUhH 1 = IDUHMY 

0192 


SLOPE = AMLTxTR/OUMHY 

0193 


ICR1 = ICR 

0194 


Sl.OPl = SLOPE 

0195 


Ml = 0 

0196 


JNSTRT = 0 

0197 


GO TO 644 

0198 

0199 

610 

M = 1 

0200 


HN = 0 

0201 

62(1 

IF ( H .GT. 1) Ml = H 

0202 


MN = HN + 1 

0203 


ICR = ICR1 + H*MLT 

0204 


IF ( ICR1 .LT. (135 - (M - 1 > *5 > xMLT) ICR=ICR1+5 eMLT*M 

0205 


IDUHMY = ICR-ICR1 

0206 


DUMMY = IDUMMY ! CHANGES INTEGER TO REAL * 

0207 


SLOPE - AMLT»(TR-TR1) /DUMMY 

0208 


M = SLOPE/SLOP1 +0.5 

0209 


IF ( M .GT. 1 )GO TO 620 

0210 


IF (M . EQ. 1 1GO TO 644 

0211 

C 

M = O INTERPRETED AS BALLOON DIP, BARQSWITCH REVERSAL 

0212 

c 

SUCH AN EARLY REFERENCE IS IGNORED FOR PRESSURE 

0213 

0214 


IDUMMY = ICR/MLT 

0215 


DUMMY = TR/60 

0 216 


WRITE ( IOUT , 944 > IDUMMY , DUMMY 

0217 

944 

F0RMAK1X, 'CHECK FOR BALLOON DIP AFTER CONTACT ',13, 

0218 

& 

' NEAR ' » F5 • 1 , ' MINUTES. ') 

0219 


INCH = 1 

0220 


Ml = -1 

0 221 


ICR » ICRl 

0 222 


SLOPE = SLOF'l 

0 223 


GO TO 180 

0 224 
0225 

644 

CONTINUE 

0 226 


DUMMY = SLOPE /SLOP 1—1 

0 227 


IF (DUMMY .GT. 0 . 0 > GOTO 2220 STAKE ABSOLUTE VALUE OF DUMMY 

0228 


DUMMY = OUMHY*(-l> 

0 229 

2220 

IF(MN ,L-. 1 .AND. DUMMY .LT. .3)MN=-1 

0230 


IF < MN , NE • -1 .OR. Ml .NE. 0>GO TO 645 

0231 


mi * : 

0232 


DUMMY = TRI/60.0 



J 
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0233 


DUMMY1 - TR/60.0 


023*1 


HRITEdQUT >6*50 > DUMMY . DUMMY 1 


0235 

6*50 

FORMAT <' EARLY CONTACT FOUND IS FALSE BECAUSE NO', 


0236 

« 

' BALLOON DIF BETWEEN ',F6.2,' AND ',F6.2,' MINUTES.' 

0237 

ft 

, ' HILL BACK-ASSIGN ! ' > 


0238 

6*5 

ICDNDC2.JKR) ■ ICR/MLT {6*5 


0239 


ICM * ICR 


0 2*0 


GTSW * 0.1 x SLOPE 


02*1 


HUMCT « 0.25 x SLOPE 


02*2 

c 



02*3 

C 

SET 'NO HUMIDITY' FLAG ABOVE CONTACT 

NUMBER 135 

02** 

x 



P2'V6 


IF (NOH ,EO. 1 >GO TO 50 . 


02^5 


IF C ICR .LT. IS^.vMLT) GO TO 120 


02*7 


NQH=1 


02*3 


TNOH *= TR 


02*9 


GTEMP * 6. 


0250 

X 



0251 

c 

ADVANCE DWELT ARRAY, AND TEST FOR BURST 


0252 

X 



0253 

SO 

IF <TR .LT. 3000.) GO TO 55 


025* 


DO 52 IS - 1,9 


0255 


IDUMMY « U-IS 


0256 


IDtJMMl* 10-IS 


0257 


DWELT (IDUMMY) - DWELT <IDUHM1 ) 


0259 


SDWELT( IDUMMY) ■ SDWELT < IDUMM1 ) 


0259 

52 

TDWELT< IDUMMY) - TDWELT (IDUMM1 ) 


0260 


DWELT f 1 ) » SLOPE 


0261 


SDWELT < 1 > * 0.0 


0262 


DO 51 ISS - 1,* 


0263 

51 

SDWELT ( 1 ) ■ SDWELT < 1 > ♦ DWELT (ISS) 


026* 


SDWELT ( 1 ) - 5DWELTU) / *.0 


0265 


TDWELT ( 1 ) « TR 


0266 

C 

WRITE (IOUT, 951) TDWELT 


0 267 

C 

WRITE (IOUT, 951) DWELT 


0268 

C 

WRITE (IOUT, 951) SDWELT 


0269 

C 951 

FORMAT ( 1X.10F12.1) 


0270 


IDUMMY « CBRST {TRUNCATES IE 

XX.X*XX 

0271 


IF (ICR .LT. IDUMMYxMLT)GO TO 5* 


0272 


DUMMY*IDUMMY {BACK TO REAL 

(XX. 0) 

0273 


TBRST * TR + (CBRST-OUMMY)xSLOPE 


027* 


GO TO 56 


0275 

5* 

CONTINUE 


0276 


IEKST «= 0 


0277 


DO S3 IS ~ 1,3 


0278 

53 

IF(DWELTdS) ,GT. 15.0 .AND. SDWELT(IS) .LT. SDWELT (IS+1 > .AND 

0279 

ft 

SDWELT (IS+3) .GT, 70.0) IBRST * IBRST l 


0280 


IF (IBRST .LT. 3 .OR. TR .LT. *000.) GO TO 55 


0281 

X 



0282 

C 

BURST CONDITIONS ENCOUNTERED 


0283 

X 



028* 


TBRST •= TDWELT <*) 


0285 

56 

TBM * TBRST / 60. 


0286 


WRITE ( IOUT , 950 ) 1 Brt , IBF 2 ! 


0287 

950 

FORMAT ( l.*.» ' EUf.i.) AT', fi.l, ' MINUTES. IBRST 15 J 


028-- 

i;/* 

. J _f 



n • ,i r -- 

l.:; 

If tC0i.’J(2,JKR> ,GT. PFL)CO TQ 130 



• 
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0291 C ADJUST REFERENCE THRESHHOLDS 

0292 * 

0193 WRITE ( 3 OUT , 8675 ) CGt 'U O , JKR ) ,RFL,F FL 

B675 FORMf.1 ( *EDND3‘ ,F8.3, * KFL'.Ffc.S, 4 PFL' ,FB.3> 

<1195 RFL * 0.6 * RFL •* 0.4 » (COND ( 3 , JKfO-1 0 . 0 ) 

C296 F'FL = 0.6 » ITL 4 0,4 * (RFLi ORPFL+ 1 G . G ) 

0297 CD TO ISO 

0298 C PROCESS THIS HIGH REFERENCE 

0299 * 

0300 130 DRFTL * C.6 * DRPFL ♦ 0.4 * <COND( 3, JKR)-RFL-10 .0 >sr .5 

0201 ICOND ( 1 . JKR) ■ 3 

0302 

0303 IF < JKF' .EG. 0>GO TO 131 . 

0304 C 

0305 C CORRECT NXTP WHEN APPARENT THAT A HIGH REF. <P> PT. WAS MISSED 

0306 C 

0307 TP12 - 15.*SL0PE 

0308 IF tNXTP ,GT. 135*HLT> TP12 » 5.*SL0F£ 

0309 IDUMMY*15*MLT 

0310 IF ( NXTP . LT . 135«MLT . AND . ( T-TP 1 > . CT , ( 1 . 5*TP 1 2 ) . AND . 

0311 ft MODdCR.IDUMMYKEQ. 0 . AND « ICR .L£» 135*HLT )NXTF'*ICR 

0 312 DUHMY*T-TF’l— 2,»TP12 

0313 IF (DUMMY .ST. 0.0) GOTO 2230 

0314 DUMMY *DUMMY*(-1> 

0315 2230 IF (NXTP .LT. 135«HLT .AND, DUMMY ,LT. ,5*TP12 .AND. 

0316 ft ICR .NE. NXTP) NXTP * NXTP 15*MLT 

0317 XDUMHY * 5*MLT 

0318 IF (NXTP ,GT . 135*MLT .AND. (T-TP1) .CT. (1.8*TF12) .AND, MQOC 

0319 ft ICR.IDuMMY) .EQ. 0 .AND. ICR ,GT. NXTP) NXTP - ICR 

0320 IF (NXTP .GT. 135*MLT .AND. DUMMY ,LT. ,5»TP12 

0321 ft .AND. ICR .NE. NXTP) NXTP * NXTP 4- 5*MLT 

0322 x 

0323 131 IFlirv* .ED. NXTP)GO TO 132 

0324 WRITE (IOUT, 11 31) ICR, NXTP 

0325 1131 FORMAT ( ' CONTACT NUMBER '.IB,' NOT EQUAL TO NXTP ' ,IB) 

0326 

0327 132 NXTP « NXTP ♦ 5*MLT 

032B IF (ICR.LT .135*MLT) NXTP * NXTP «- 10«MLT 

0329 TP1 « TR 

0330 JKP * JKR 

0331 C BACK-ASSIGN 

0332 C DECOMMUTATE TEMPERATURE AND HUMIDITY UP TO THE CURRENT REFERENCE. 

0333 

0334 C ASSURE DWELL PRECEDING THIS REFERENCE IS A TEMPERATURE 

0335 * 

0336 180 CONTINUE 

0337 IF(NOH .EQ. l)GO TO 178 

D33B IF ( COND ( 1 , JKR- 1 > .LT. TR - .8*SLOPE)GO TO 161 

0339 IF (ICOND Cl, JKR-1) .EQ. 1)CD TO 181 

0340 ICaNCHl, JKR-1) * 10 + ICOND C 1 » JKR- 1 ) 

0341 ESL = 0. 

0342 TSL = COND ( 1 , UKR-1) ♦ COND(2 , JKR-1 >/2. 

0343 DSL - CONDO, JKR-1 > 

0344 KROSS - 1 

0345 181 IF (KROSS ,NE. 1 >GD TO IBB 

0346 JNFIN - JKR-2 

0347 INCHN * 2 

0348 ESLN «r £SL 
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0349 1 81 M - TSL 

035(1 DSLN * DSL 

0;.f:l Il)Urt2 = JNFIN-JNSTRT+l 

0352 DD ] 370 JN1=J ,IDUH2 

0353 JN-JNFIN+1-JN1 
P354 » 

0355 C SKIP REFERENCE AND REJECT POINTS 

0356 ■ 

0357 MM = 90 

0350 IF ( HI .EG. 1) GO TO 102 

0357 MM = 80 

0360 GO TO 1B6 

0361 132 TN = CONDd.JN) 

0362 DWELLN = COND(2,JN) 

0363 DN = CONDO, JN) 

0360 TEN = TN + DWELLN/2. 

0365 TS = (TN-TR1 ) /SLOPE 

0366 NCT = TS +■ .5 

0367 DUMMY = NCT 

0368 TO = DUMMY*SLOPE + TR1 

0369 TFN = DSLN + ESLN * (TBN-TSLN ) 

0370 DUMMY = DN-TFN 

0371 IF (DUMMY . GT . 0.0) GOTO 2240 

0372 DUMMY = DUMMY*(-1> 

0373 2240 IF (NCT. NE.0. AND. NCT. NE.l .AND. DUMMY. GT.GTEMP) 

0374 & GOTO 183 

0375 IF ( TEN . GE . (TQ-GTSW ) >G0 TO 183 

0376 * 

0377 C A TEMPERATURE DATUM 

0 373 * 

0379 1821 ICONDd.JN) = 10 +• ICONDCl.JN) 

0380 ESLN1 * ESLN 

0381 ESLN = 0 . 8*ESLN + 0,2*(DN - DSLN ) / ( TBN - TSLN ) 

0332 DUMMY * ESLN-ESLNl 

0383 IF (DUMMY .GT. 0.0) GOTO 2250 

0 3B4 DUMMY = DUMMY*(-1) 

0385 2250 IF (DUMMY .GT. .2) ESLN = ESLN1 

0386 DSLN = .8*DSLN + .2«DN 

0387 TSLN = TEN 

0338 INCHN = 1 

0339 GO TL 187 A 

0390 C BACK-ASSIGN CHANNEL AND CONTACT NUMBERS 

0391 * 

0392 183 DUMMY = TN-T0 

0393 DUhMYl= DN-TFN 

0 394 IF (DUMMY .GT. 0.0) GOTO 2260 

0395 DUMMY = DUHMY*< -1 ) 

0396 2260 IF (DUMMY1 .GT. 0.0) GOTO 2270 

0397 DUMMY1=DUMMY1* ( -1 ) 

0390 2270 IF ( DUMMY . GE . GTSW .OR. DUMMY1 ,L£ . GTEMP ) GOTO IB73 
0399 IF ( NCT . GE . 5 .OR. NCT ,LE. 0)GO TO 1873 

060(1 IF(ICQND(2,JN+1)/1 .EG . ICOND < 2 , JKF:1 )+NCT) GO TO 1873 

0401 ICOND ( 2 . JN ) = <r,aC<2 f JKR1 ) + NCT) 

0 4 0 2 * 

0403 C AN HUMIDITY DATUM 

0404 * 

0405 ICOND ( 1 , JN ) = 40 + ICONDd.JN) 

0406 INCHN = 4 
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PAGE 008 

DECOM 

• SA 5 1 

UMET-1 

15 DEC 1982 

0407 

0408 * 

GO TO 

1874 




0<IQ9 1873 IF < ICOND < 1 , JN ) . EQ, 1 )GO TO 1821 
0410 186 XCOND ( 1 , JN ) = MM ♦ ICONDCl.JN) 

Oflll *1874 IF (ICOND ( 2, JN) /10 0 0 .EO. 0 > ICOND <2 , JN) =ICOND ( 2, JN) +MM*1 0 0 5 (1874) 

0412 1874 CONTINUE 

0413 1070 CONTINUE 

0414 * 

0 415 C WRAF'-UP F'ROCESS -E- 

0416 * 

0417 18e IF (Ml .LT. 0> GO TO 189 

0 41(3 ICR1 = ICR 

0419 SLOP1 = SLOPE 

0420 

0421 189 JKR1 = JKR 

0422 TRl - TR 

0423 T2 = TR 

0424 SLOF'2 = SLOPE 

0425 Ml = 1 

0426 KROSS = 0 

0427 JNSTRT - JK + 1 

0428 GO TO 78 

0429 * 

0430 C STORE REFERENCE DATA 

0431 * 

0432 200 CONTINUE 

0433 IF (INCH . EQ . 0) GO TO 220 

0434 IF (INCH . EQ . 2 /GO TO 220 
0 435 * 

0436 C A CONTACT SWITCH POINT 

0437 * 

0438 JKR = JR 

0439 RFSUM =0,0 

0440 RT SUM = 0.0 

0441 * 

0442 C CUMULATION OF REFERENCE MEAN FREQUENCY 

0443 * 

0444 220 RFSUM = RFSUM + D * DWELL 

0445 RTSUM = RTSUM t- DWELL 

0446 ICOND ( 1 , JK ) = 2 

0447 INCH = 2 

0448 * 

0449 900 IF (IDG ,LE. 2) RETURN 5900 

0450 IF (MQDdTCNT ,50 ) . EQ , 0 3WRITE ( IOUT , 90 0 1 > 

0451 STCNT = ITCN T + 1 

0452 WRIT EdDUT, 900 OMCONDd, JK) ,1=1 ,3) , (ICOND (I , JK ) , 1=1 , 2 ) , JK , 

0453 R INCH, NOH , RFL , ORPFL, IF, FHUM, ESL, SLOPE , KROSS , Ml 

0454 9001 FORMAT ( ' 1DECOM OUTPUT! CDND (I, JK) ,1=1,3' , 

0455 8 ' ~-ICOND JK INCH NOH RFL', 

8 ' DRPFL YF FHUM. ESL SLOPE KROSS Ml') 

0457 9000 FORMAT < ' DECOM OUTPUTS ' , 3F7 . 1 , 515 , 4F7 . 1 , F7 . 4 ,F7 . 2, 216 > 

045B 

0459 

0460 RETURN 

0461 END 


\ 
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0001 OPT L.REL 
0 0 02 OPT LLE*8 0 
0003 NAM GETBCK 
0 0 0-1 IDNT GETBCK 

0005 XDEF GETECK 

0006 * 

0 0 07 XXMXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

0008 a THIS PROGRAM TS USED TO FORMAT THE DATA STORED IN BYTES 1-10 

0009 x DURING AN INTERRUPT . NORMAL OPERATION IS TO DO THIS FORMAT 

0010 x DURING THE INTERRUP, BUT IF WE ARE BRINGING DATA INTO THE MAIN 

0011 a PROGRAM WE DONT WANT TO START CHANGING THE DATA STACK OR POINTERS. 

0012 x TO SOLVE THE PROBLEM A FLAG IS SET THAT TELLS THE INTERRUPT NOT 

0013 x TO FORMAT THE DATA. THEN AFTER THE DATA IS IN THE FORTRAN 

001-5 x PROGRAM IT SEES IF INTMSK (THE FLAG) HAS BEEN SET TO 2 BY 

0015 » AN INTERRUP. IF SO THIS PROGRAM IS CALLED. 

0 016 x 

0017 CSCT 

0019 IFLAG RMB 2 

0019 BYTE 10 RMB 1 

0020 BYTE? RMB 1 

0021 BYTE8 RMB 1 

0022 BYTE7 RMB 1 

0023 BYTE6 RMB 1 
00 2-5 BYTES RMB 1 
0025 BYTEA RMB 1 
0 026 E1YTE3 RMB 1 
0027 BYTE2 RMB 1 
0020 BYTE1 RMB 1 
0029 BYTE11 RMB i 
0020 BYTE 12 RMB 1 

0031 BYTE13 RMB 1 

0032 BYTE 1 A RMB 1 

0033 BYTE1S RMB 1 
0 03A BYTE16 RMB 1 

0035 TEMPX RMB 2 

0036 INTMSK RMB 2 

0037 IRAM1 RMB 2 
U 036 IRAM2 RMB 2 
0039 IRAM3 RMB 2 
0 0 AO IRAMA RMB 2 
0 0 A 1 IRAM5 RMB 2 
00A2 IRAM6 RMB 2 
00 A3 IRAM7 RMB 2 
OOAA IRAMB RMB 2 
OCAS IRAM9 RMB 2 
O0A6 IRAM10 RMB 2 
OOA7 IT OP RMB 2 
00 A3 IBOT RMB 2 

00A9 IDATA R'ME'- 1500 5IRAM ARE STACKED INTO THE IDATA ARRY TO BE PROCESSED 

GObO xxxxxxxxxxxxxxxxxxxxxxxx 

0 051 x 

0052 x 

0053 x PROGRAM FOLLOWS 
0 05A x 

0055 x RAW DATA IS NOW STORED FROM BYTE1-BYTE10 

0 056 x THIS HAS DONE IN THE INTERUF' , 

0057 x 

0058 x FORMAT THE DATA INTO INTERGER IN IRAM USING BYTE1 1-BYTE16 
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0 059 
0 060 
0061 
0 062 
0063 
0 064 
0 065 
0 066 

0067 

0068 
0 069 

0070 

0071 

0072 

0073 
007-*) 
0 075 
0076 
0 077 
0 U7Fs 
0 0 79 
0030 
0 081 
0082 
0083 
OO0A 
0 085 
0086 
0 087 
0088 
0 039 
0 090 
01191 

0 092 
0 0 93 
n <!':'« 
011“*; 
0 0 96 
0 0 97 
0 0 99 
0 0 99 
0 10 0 
0101 
0102 
0 103 
0 1 0 A 
(1105 
0106 

0107 

0108 

0109 

0110 
0111 
0112 
0113 
QUA 
0115 
3116 


x AS SCRATCH PAD. THEY ARE STORED AS FOLLOWS! 

* IRAMl=HOURS 

* IRAM2=MIN 

* IRAM3=SEC 

* IRAhA=.=FC 

k IRAM5=DEGRE£S OF EL 

■ IRAM6=. DEGREES OF EL 

* IRAH7=DEGRE£S OF AZ 

« IRAM8=. DEGREES OF A2 

* IR Ah 9=TH0U SANDS PLACES IN MET WORD 

* IRAM1 Q=LOWE5T 3 VALUES OF MET WORD < IE UP TO 999) 

X 

X 

PSCT 

GETBCK PSHS X 
x 

LDE: BYTE 10 
LSRR 
LSRE: 

STB BYTEll 
LSRE: 

LSRE; 

LSRE'. 

LSRE: 

LDA BYTE 11 
ANDA # S»OF 
5TA BYTE! 3 
LDA *T()A 
MUL 

AD DP RYTE11 
STD IRANI 
x NOW 

LDA BYTE10 
ANDA ♦3*03 
STA BYTE 11 
LDrt BYTE? 

ASI-A 

BCC NOCAR 
LDA BYTE11 
LSLA 

ORA #$01 
STA BYTE12 
BRA LOWHIN 
NOCAR LDA BYTE 11 
LSLA 

STA BYTE12 
LOWMIN LDA BYTE9 
ANDA #578 
LSRA 
LSRA 
LSRA 

STA BYTE13 
LDB BYTE12 
LDA ♦*0A 
MUL 

A DDE: BYTE 13 
STD IRAM2 


; SAVE THE FORTRAN X REGISTER 
START E:Y FINDING VALUE OF HOURS 


DO MIN 


x 


NOW DO SECONDS 


PAGE 0 03 GETBCK 


sa:i 


UMET-1 


15 DEC 1982 


0117 LDA BYTES 

0118 LSRA 

0119 LSRA 

0120 LSRA 

0121 LSRA 

0122 STA BYTE 11 

0123 LDE: BYTE9 

0124 ANDE: *$07 

0125 LDA **OA 

0126 MUL 

0127 ADDB BYTE11 
01213 STD IRAM3 

0129 » NOW DO TENTHS OF SECONDS 

0330 LPB BYTE8 

0131 ANDB *$0F 

0132 LDA **()() 

0133 STD I RAM 4 

0134 * 

0135 * TIME WORD DONE 

0136 * START ON EL WORD 

0137 LDA BYTE7 

0338 ANDA *$0F 

0339 STA BYTEll 

0340 LDB BYTE7 

0141 ANDB *$F0 

0142 LSRB 

0143 LSRE: 

0144 -LSRE: 

0145 LSRE: 

0146 LDA *»0A 

0147 MUL 

0148 ADDB BYTE11 

0149 STD IRAM5 

0150 * DO PART OF DEGREE EL 

0151 LDA BYTE6 

0152 ANDA #$ OF 

0153 STA BYTEll 

0154 LDB BYTE6 
0355 ANDB *$F0 

0156 LSRB 

0157 LSRB 
0153 LSRE: 

(1159 LSRE: 

0160 LDA **0A 

0161 MUL 

0162 ADDB BYTEll 

0163 STD IRAM6 

0164 * DONE WITH ES- 
DI 65 * START ON AZ WORD 

0166 LDB BYTES 

0167 LSRE: 

0168 LSRB 

0169 LSRB 

0170 LSRB 

0171 LDA *$64 

0172 MUL 

0173 STD BYTE13 

0174 LDB BYTES 


ORJGIM/tL’ VWZ Is 
OF POOR QUALfP/ 


PAGE 004 GETBCK .SAil UHET-1 15 DEC 1992 

0175 ANDB ♦ * OF 

0176 LDA **QA 

0177 HUL 

0178 ADDD BYTE13 
017? STD E.YTE13 

0180 LDA #*00 

0181 LDE'- BYTE4 

0182 LSRE 

0183 LSRE 
010^ LSRE 
15185 LSRE: 

0186 ADDD BYTE 13 
0167 STD XR'Ah7 

0188 « NOW DO TENTHS OF DEGREE AZ 

0199 LDA BYTE3 

0190 LSRA 

0191 LSRA 

0192 LSRA 

0193 LSRA 

0194 STA BYTE11 

0195 LDB BYTE4 

0196 ANDB **0F 

0197 LDA ♦*0A 
0190 MUL 

0199 A DDE: BYTEll 

0200 STD IRAM8 

0201 * AZ WORD DONE 

0702 * START ON HET WORD 

0203 LDA BYTES 

0204 LSRA 

0205 LSRA 

0206 LSRA 

0207 LSRA 

0208 STA BYTEll 

0209 LDE: BYTE3 

0210 ANDB **0F 

0211 LDA #*UA 
0217. MUL 

0213 ADDS BYTEll 

0214 STD IRAK? 

0215 * DO LAST OF KET WORD 

0216 LDB BYTE2 

0217 ANDB **GF 
021B LDA **64 
07.19 MUL 

0220 STD BYTE13 

0221 LDE: 6YTE1 

0222 ANDB *S0F 

0223 STB BYTEll 

0224 LDB BYTE1 

0225 LSRE: 

0226 LSRE: 

0227 LSRE 

0228 LSRE: 

0229 LDA #*0 A 

0230 MUL 

0231 ADDB BYTEll 

0232 ADDD BYTE13 


r: • • 

OF • 


PAGE 005 GETBCK 

0233 STD IRAKI 0 

0234 * 

0235 * 

0236 « 

0237 * 

0 238 » 

0239 LDD ITOP 

0240 ADDD **01 
D24 1 CMPD *150 
B242 6NE ISTOP 

0243 LDD **0000 

0244 ISTOP STD ITOP 

0245 CHPD IBQT 


0246 

BNE 

SETFLG 

0247 

LDD 

IBOT 

0248 

ADDD *501 

0249 

CMPD *150 

0250 

BED 

ATTOP 

0251 

STD 

IBOT 

0252 

BRA 

SETFLG 

0253 

ATTGP LDD «»UO0G 

0254 

STD 

IBOT 

0255 

SETFLG LDD ITOP 

0 256 

CMPD 

i IBOT 

0 257 

E'.LD 

WORKUP 

1(258 

SUED IBOT 

0259 

STD 

IFLAG 

026 0 

BRA 

STOR 

0261 

WORKUP ADDD *150 

0262 

SUBC 

i IBOT 

0263 

STD 

IFLAG 

0264 

STOR 

LDX TEMPX 

0265 

LDD 

IRAM1 

0266 

STD 

,X++ 

0267 

LDD 

IRAM2 

02o8 

STD 

,X+<- 

0269 

LDD 

IRAM3 

0270 

STD 

i X++ 

0271 

LDD 

IRAM4 

0 272 

STD 

,X++ 

0273 

LDD 

IRAM5 

0274 

STD 

r X++ 

0275 

LDD 

IRAM6 

0276 

STD 

. X++ 

0277 

LDD 

IRAM7 

0270 

STD 

, X++ 

0279 

LDD 

IRAM8 

0230 

STD 

. X++ 

0231 

LDD 

IRAM9 

0282 

STD 

f X++ 

0 2B3 

LDD 

IRAKI 0 

0284 

STD 

,X++ 


0285 CMPX **8CE6 {HIGHEST ADDRESS OF DATA STACK 

0236 BUS LOOPX 

0237 STX TEKPX 
02aB BRA DONE 

0289 LOOPX LDX **S12E {BOTTOM ADDRESS OF DATA STACK 

0290 STX TEMPX 


.SAU UMET-l 15 DEC 1982 


DATA IS FORMATTED AS INTERGERS 

NOW FORMATT INTD IDATA ARRY FOR USE IN MAIN 

MET PROGRAM. 



fj m w m r>> 


sa:i 


15 DEC 1902 




PAGE 006 GETBCK 


UHET-1 


91 LDD *S00 

92 STD IT OF' 

93 DONE PULS X f RESTORES FORTRAN X REGISTER 

94 RTS 

95 END 


£ 
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INTERF' 


sa:i 
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00(11 
0 0 02 

0003 

0004 

0005 
00 06 
0007 

oooa 

0 0 09 
0010 
0011 
0012 

0013 

0014 

0015 

0016 
0017 
0 0 IB 

0019 

0020 
0021 
0022 
0 023 
0 024 
0025 
0 026 

0027 

0028 
0 0 29 
0 030 

0031 

0032 
0 033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 
0 044 

0045 

0046 
0 0 47 
D04B 
0049 
0 0 50 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 


•INTERF SUBROUTINE INTERF' 


SUBROUTINE INTERF- ( JK , TNDH , ISTOF’ , LCNTK ) 

■luiiiimnwiiuuu COMMON EiLOCK »Kiimnu>miiiiiiuii>ixmii 
INCLUDE ' COMMON. SA' 


n«XIlIXXlXKIXXXXXUXIIXXXXIXXX«IXXIXXXXXIIXIIl>XIXX(l«X>MimiXl»Xim( 


c 

DIMENSION T1 (7), T2(7) , VI ( 7 ) , ALOSS ( 7 > 

X 

C TOLERABLE TIME INTERVALS BETWEEN SIGNAL DATA 

C ( P, R, T,’h ) 

x 

ALOSS< 1 > = 0 . 0 
ALOSS(2>=0 .0 
ALOSS C3>=0 . 0 
ALOSS ( 4 ) =200 * 0 
ALOSS<5)=600.0 
ALOSS (6>=1Q0.0 
ALOSS ( 7 ) = 100 . 0 
x 

KNTCT = 0 
14 = 1 
15*1 
16 = 1 
17 = 1 

DO 1 I = 4,7 
01(11 = 0 . 

1 T2(I) =-0.1 

TLF'CAL = 1.0E10 
x 


C DO EACH ROW (TIME) OF OUTPUT TABLE 

C 

DO 30 L = 1 .LIST 
IF ( VL ( 1 » L > .GT, TBRST ) GO TO 47 
IF ( VL( 1 , L> .GT. TLF'CAL) GO TO 42 
IF < VL ( 1 , L > .GT. COND(l.JK)) GO TO 48 
C 

C DO EACH COLUMN ENTRY (VARIABLE) OF THE OUTPUT TABLE 

C 

C IF TL IS BRACKETED, INTERPOLATE 

DO 20 IV = 4,7 

10 IF < VL(l.L) .LE. T2(IV) ) GO TO 101 

x 

C ADVANCE BRACKET BEFORE INTERPOLATING 

IJ = IV - 3 

GO TO ( 11, 12, 13, 14 ) , IJ 

x 

* NEXT PRESSURE PAIRS 

x 

11 DO 111 I = 14,900 

IF ( I .GT. JK .OR. COND (1,1) .GT. TBRST) GO TO 101 
IF (ICOND< 2 , 1) .GT. KNTCT .AND. ICDND(1,I) .LT. 5) GO TO 112 
IF (ICGND(2,I> .GE. LCNTK) GO TO 100 
111 CONTINUE 


PAGE 002 


INTERP 


ORiasv;.'.;.. ... 

OF POOR QUALITY 


.sail UMET-l 


15 DEC 1982 


0059 

006(1 

0061 

0062 

0063 

0064 

0065 

0066 
0 067 
0 06B 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0 082 

0083 

0084 
0 085 
0 086 
OOB7 
0008 
0 089 
0 090 
0 091 
0 0 92 
0093 
0 09 4 
0095 
0 096 

0097 

0098 
0 0 r -? 
Gioo 
010.1. 
0102 

0103 

0104 
U05 

d!06 

0107 

0108 
0109 
0 J 10 
0111 
0112 

0113 

0114 

0115 

0116 


112 CONTINUE 

KNTCT * IC0ND(2,I> 

Tl ( 4 ) = T2C 4) 

Ul( 4 ) = V2( 4) 

U2< 4) * F'CAL ( KNTCT ) 

T2(4) = COND < 1 » I ) 

14 = I ♦ 1 
GO TO 10 

* 

■ NEXT REFERENCE FREQUENCY PAIRS 

x 

12 DO 121 I = 15,900 

IF ( I .GT. JK .OR. CONa(l.I) .CT. TBRST) GO TO 101 
IF(IC0ND(2»I) .EG. 0)GO TO 121 
IF ( ICOND (1,1) . EG , 2) GO TO 122 

121 CONTINUE 
122 CONTINUE 

Tl<5 > «= T2<5) 

UK 5) = V2< 5) 

U2<5) = CONDO, I) 

T2( 5 ) = COND ( 1,11 

15 *■ I ♦ 1 
GO TO 10 

x 

■ NEXT TENF'ERATURE PAIRS 

x 

13 DO 131 I = 16,900 

IF ( I .GT, JK .OR. COND (1,11 .GT. TERST1 GO TO 101 
IF ( ICOND < 1,1) .EQ. 1 .AND. CONDO, I) , GT . 0.0011 GO TO 132 
131 CONTINUE 

132 Tl < 61= T2( 6) 

UK 61- U2< 6) 

U2( 6 1 = 95. x CONDO, 11/ UL(5,L) 

T2( a ) = COND (1,1) 

14 a X ♦ 1 
GO TO 10 

133 CONTINUE 

UK 6 1 = UL ( 6 ,L-2 1 
TK4) = UL f 1 , L-2 1 
V2 ■: >• ) = VLC6.L-1) 

12(6) = VLUiL-1) 

GO TO 10 
x 

X NEXT RELATIUE HUMIDITY PAIR 

x 

14 IF ( UL ( 1 »L . ,GT . TNOH) GO TO 20 

DO 141 I = 17,900 

IF ( I , GT . JK .OR. COND (1,1) »GT ■ TNOH .OR. COND<l,I) . GT . TEiRST) 
4 GO TO 101 

IF ( ICOND < 1 , 1 > .EG. 4 .AND. CONDO, I) .GT. 0.001) GO TO 142 
J 41 CONTINUE 
142 Tl< 7 >- T2< 7) 

UK 7)= U2< 7) 

U2 < 7 ) = 95. x CONDO, I)/ UL(5,L> 

T2( 7->~ COND (1,1) 

17 = I + 1 
GO TO 10 


x 


PAGE 0 03 INTER?' 


SAJI 


IS DEC 1982 



UMET-1 


0117 100 TLF’CAL * CONDU.I) 

0118 « 

0119 * INTERPOLATE / EXTRAPOLATE 

0120 ■ 

0121 101 IF(IV .EQ. 7 .AND. VLll.L) .CT. TNOH ) GO TO 20 

0122 IF ( VI (IV) .GT • .0001 .AND. <T2(IV> - Tl(IV>) .GT. .0001) GO TO 190 

0123 VL (IV . L > = V2 ( IV ) 

0121 GO TO 20 

0125 190 VL(IV,L)=V1 <IV>+( (V2(IV)-V1 (IV) ) / (T2 (IV )-Tl (IV ) > >»(VL( 1 ,L)-Tl (IV) ) 

0126 B 

0127 C OUTPUT ZEROS FOR NO LOCAL SIGNAL 

0128 * 

0129 DUMMY = VL ( l , L)-T t (IV ) . 

0130 DUMMY1 = VL ( 1 , L ) -T2 (IV > 

0131 IF (DUMMY .GT. 0) GOTO 2210 

0132 DUMMY = DUMMY* (-1) 

0133 2210 IF ( DUMMY 1 .GT. 0) GOTO 2200 

0131 DUMMY1 = DUMMY1*(-1> 

0135 2200 IF (DUMMY .GT. ALOSS(IV) .AND. 

0136 t, DUMMY1 .GT. ALOSS(IV) > VL(IV.L) = 0. 

0137 * 

0138 20 CONTINUE 

0139 30 CONTINUE 

0110 C 

0111 GO TO 19 

0112 12 ISTOP = 2 

0113 GO TO 18 

0111 17 CONTINUE 

0115 ISTOP =10 

0116 18 CONTINUE 

0117 LIST = L - 1 

0118 19 CONTINUE 

0119 * 

0150 * 

0151 * 

0152 * 

0153 * 

0151 RETURN 

0155 END 





“-w* 


ORIGIN- ^ - j;' 

OF POOR QUmLO V 


PAGE 001 INTERR ,SA:l UMET-1 15 DEC 1982 

0001 OPT L.REL 

0002 OPT LEE-BO 

0003 NAM INTERR 

0004 IDNT INTERR 

0005 XDEF INTERR 

0006 xxxxxxxxxx THIS PROGRAM ALLOWS REAL TIME INTERRUPS TO OCCUR xxxxxxxxxx 

0007 * 

0008 CSCT 

0 0 09 IFLAG RMB 2 
0010 BYTE1 RME 1 
0 0 .11 BYTE2 RME 1 
0012 BYTES RME 1 
0 013 BYTE4 PME 1 
0 014 BYTES RME: 1 
0 015 BYTE4 RME: i 

0016 EYTE7 RME 1 

0017 BYTES RME 1 
0 018 BYTE? RME: 1 

0 019 BYTE 10 RME: 1 
0 020 BYTE 11 RME: 1 
0 021 E-YTE12 RMB 1 

0022 BYTE13 RMB 1 
0 0 23 BYTE 14 RME: 1 
0 024 BYTE15 RME: 1 

0025 BYTE16 RMB 1 

0026 BYTE17 RMB 1 

0027 BYTE 18 RMB 1 

0023 INTMSK RMB 2 

0 029 IRAM1 RME: 2 

0001 IRAM2 RME: 2 
0 031 IRAM3 RME: 2 
0 032 IRAM4 RME: 2 
0033 IRAM5 RMB 2 
0 0 34 IRAM6 RME: 2 
0035 IRAM7 RMB 2 
0 036 IRAM8 RME: 2 
0037 IRAM9 RMB 2 
0033 XRAM10 RMB 2 
0 039 HOP RMB 2 

0 04 0 IBOT RME: 2 

0041 IDATA RMB 1500 

0042 EXXXXXXXXXXXXXXXXXXXXXXX 

0043 » 

0044 * PROGRAM FOLLOWS 
0 0 45 x 

0046 PSCT 

0047 INTERR LDD #*E002 

Q04B EXG X »D {TO SAVE THE FORTRAN X REG AND USE IT AT E002 IN THIS PROG 

0049 STD BYTE17 {FORTRAN X REG IS SAVED 

0050 ORCC #*10 { SET IRC, FLAG 

0051 LDA **04 {THIS SET BIT 2 OF THE PIA CONTROL REG 

0052 STA O.X {PIA CONTROL REGISTER 

0 053 STA 4 » X {PIA CONTROL REGISTER 

0054 STA 5,X {PIA CONTROL REGISTER 

0055 STA B,X {PIA CONTROL REGISTER 

0056 STA 9 , X {PIA CONTROL REGISTER 

0057 STA 12, X {PIA CONTROL REGISTER 

005B STA 13, X {PIA CONTROL REGISTER 




PACE 002 


INTEPR 


SA*.l 


UHET-1 


15 DEC 1962 


0059 

0060 
0061 
0062 
0063 
006A 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 
007A 

0075 

0076 

0077 


Of PGU! 


STA 

16 »X 

sta 

17 » X 

LDA 

l.X 

ORA 

••07 

STA 

l.X 

LOG 

••0000 

STD 

IFLAG 

LDD 

••5620 

STD 

>*OFFE 

LDD 

EYTE17 

TFR 

D,X 

LDD 

••SIZE 

STD 

BYTE17 

LDA 

>*E007 

ORA 

• •38 

STA 

>*E007 

ANOCC #*EF 

RTS 


END 



:pia control register 

{PIa CONTROL REGISTER 

;td configure for interrupts through pza 

{SO IFLAC HILL BE RESET 

5AODRE5S OF INTERRUPT PROGRAM 
{PSEUDO IRO INTERRUPT VECTOR 
5X RED STORED AT BYTE17 
{RESTORES THE X REG FOR FORTRAN 

{SET UP POINTER FOR IDATA STACK 


{TURNS ON THE SHIFT REGISTERS 
{CLEARS lNW-KRUt I I LAC 


GFfGir^.:. r \Vv'. ; .; 

OF POOR QUALHY 


PACE 001 IOPKG .sa:j U.4ET-1 


IS DEC 15-E2 


CO Cl 
OIOS 
0(1 C 3 
0004 
0 0 US 
G l! 0 6 
Ii 0 07 

oooe 

0009 

0010 
U01I 
CC 12 
<• 0 1 z 

0014 
Of 4S 

0016 
0 017 
0018 
0019 
0 020 
0021 
0022 
0023 
00 24 

0025 

0026 
0027 
0026 
D 029 
0 U30 

0031 

0032 

0033 
0 0 34 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 
fl044 

0045 

0046 

0047 
0 049 
3049 
0 050 
0051 
0 052 
0 053 
0 054 

0055 

0056 

0057 
0 05B 


MAM lOI-KC 

XDEF IMtMi ■ , DUTCH* , IN*NE , INtMPE 
XDEF FCRLF*,pDA11»,LOUTC1 .1NITL2 

IDN . HDDS 681! 9 FORT LID - 3.11 S MONITOR INDEP I/O PKG 

TTL MONITOR INDEP 3/0 F'ACt'ACE 
SPC 1 

: Instructions to I'sers! 


This nodule allows use of noriitor independent 
subroui jn&s with FORT RAM. This is don* as 
f oil owe* 

1. Change the I/O address definitions below 
to the correct values for your systen. 

2. Assenble this file as follows! 

“RASH IOFKG:-FRXLN*80 

3. In "RLDAD" , load this nodule (lOPKC.RC) 
BEFORE doing a FORTRAN library (FORLB.RO) 
search. 


If your nonitor already has the following EXEWG 
equivalent subroutines, then nenory size nay be 
conserved by putting the following routine into 
a separata file (IOADRS) and changing the entry 
locations. Assenble this file es follows! 

-RASH I0ADRS ! RXLN^SO 

NAM IOADRS 

TTL I/O ADDRESSES 

XDNT MDOS 6809 FORT- RESIDENT MONITOR I/O EQUATES 
XDEF INSNP , DUTCH* , PCRLF* , PDAT1 • , LOUTC* 

SPC 1 

IN*NP EQU *F015 INPUT 1 CHAR, NO PARITY, HITH ECHO 
OUTCH* EQU SF018 OUTPUT CHAR (SPEED FILL > 

PCRLF* EQU *F021 PRINT CR, LP (USES A) 

P0AT1* EQU *F027 PRINT DAfA STRING (X — > STRING) 
LOUTC* EOU SEBCC PRINT CHAR ON LPR (A* CHAR) 

* IF ERROR, CARRY SET ON RETURN 

END 

Load this nodule (IOADRS. RO) before doing e FORTRAN 
library (FQRLB.RO) search. Or you nay specify the 
addresses at link tine via the “DEF” connand before 
doing a FORTRAN library search, 

Exanple! 

■RLOAD 

?DEF!IN*NP-*F015 

?oef:outch*«*fdib 

?DEF!PCRLF*«*F021 

?DEFtPDATl***F027 

?DEFSLOUTC*-*EBCG 

7BASE 

etc. 


PAGE 

xxxxx EQUATES *■ 
CR EQU SOD 

LF EQU SOA 



OF pQCvi -• • ; ■ ' 


PACE 

0 0 2 I' 

0059 

EOT 

0060 

SICIP2 

0061 

X 

0062 

SPC 1 

0 063 

xx xxx ; 

0064 

ACIARS 

0065 

« ACIAI 

0066 

X 

:0o7 

X 

l> ft 

•CTRLI 

0069 

X X 

0 0 70 

X X 

0071 

X X 


. SA : 1 UtlET-l 


EQU 

EQU 


*04 

*8C 


SKIP 2 LOCATIONS 

(CPX • DP CODE) 


s ACIA adr 
address 

compatible 
♦ 1 = Data 
reg byte 


0072 

0072 

0074 

0075 

0076 

0077 
0 078 
0079 
0 0 80 
OOE1 
0082 

0083 

0084 

0085 

0086 
0037 
0083 
0039 
0 090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0078 

0099 

0100 
0101 
0102 

0103 

0104 

0105 


SPC 1 
• ACXAO 


.CTF.-LO 

* x 

* X 

V * 

SPC 1 
. LPIA EQU 

■ 

■ 


I/O ADDR DEFS ****** 

EQU *EC14 Resident monitor 
EQU ACIAP'i It if* *-' t ACIA base 

*FCF4= EXBUG 
+0= Status, 

EQU X0 001 00 01 Input ACIA Ctrl 
Divide by 16 clock 
8-bits -*• 2 stop bits 
RTS lou, interrupts disabled 

EQU ACIARI Output ACIA base address 

*FCF4= EXBUG compatible 
+0= Status , r l — Data 
EQU ZOOOl.OOOi Output ACIA Ctrl reg byte 
Divide by 16 clock 
8-bits + 2 stop bits 
RTS lou, interrupts disabled 


.CTRLA 
♦CTRLB 
. STRBA 

a 

* Note! 

z 
x 
X 

* 

X 
X 
X 
X 
X 
X 
X 


♦EC10 Lineprinter PIA base address 

*EC10= EXBUG compatible 
•►0= Data (A> *1= Control 1 
+2= Status <B> +3= Control 2 
Bit 0=Select 
Bit l=No paper 

%0 01 111 0 0 LP "A" Ctrl reg byte 
XOOllllOO UP "B" Ctrl reg byte 
Z0011 0100 LF‘ "A" Ctrl reg strobe 
*3C,*3C,*34= EXBUG/Centronics compatible 
a serial line printer is to bs used, make 
the following changes: 

1) Change «LF‘IA to .LACIA and substitute 
proper address. 

Change .CTRLA to .ACl'AL and substitute 
proper control reg byte, 

Delete .CTRLB and .STRBA lines. 

Replace the LPQUTC subroutine with a 


EQU 

EQU 

EQU 

If 


! > 


3 ) 

4) 


matching serial driver, 

5) Change INITLZ subroutine starting at 
INIT3 to initialize the line printer 
ACIA. 

PAGE 

* Monitor I/O address table for FORTRAN I/G 
■ named common PSCT so user can easily overlay 


01(16 

* with 

other I/O addresses by 

loading last. 

0107 

SPC 1 







0 1 08 

.IGAOR 

COMM 

PSCT 





0109 

ACIAI* 

FDB 

.ACIAI 

Input 

ACIA 

address 

0110 

CTRLIS 

FCB 

.CTRLI 

Input 

ACIA 

Ctrl 

reg byte 

0111 

ACIAO* 

FDB 

. ACIAO 

Output 

ACIA 

address 

0112 

CTRLO* 

FCB 

.CTRLGI 

Output 

ACIA 

Ctrl 

. reg byte 

0113 

LPIA* 

FDB 

«LPIA 

Linepr 

inter 

PIA 

address 

0114 

CTRLA* 

FCB 

.CTRLA 

LP PIA 

Ctrl 

reg 

A byte 

0115 

CTRLB 1 

FCB 

.CTRLB 

LP PIA 

Ctrl 

reg 

B byte 

0116 

STRBA* 

FCB 

. STRBA 

LP PIA 

ctr 1 

reg 

A strobe 


15 DEC 1982 



omam± ;v 

of poor g.j/^nr 


F'AGE 003 lOF’KG .SAJI UHET-1 15 DEC 1982 

0117 SF'C 1 

0118 • CNNUL COMM PSCT 

0119 CHNUL RMB 1 NUME’.ER OF NULLS AFTER EACH CHAR. 

0120 CRNUL RMB 1 NUMBER OF NULLS AFTER EACH CR/LF, 

0121 SRC 1 

0122 .CIC COMM DSCT 

0123 CIC* RMB 1 
012* SRC 1 

0125 . INIT COMM PSCT 

0126 FDE' INITLZ OVERLAY ADR IN ETSROA 

0 1 27 SFC 1 

0128 .M12CA COMM PSCT 

0129 GTMAIN FDE: 0 OVERLAID BY MM12. IF PRESENT 

0130 PAGE 

0131 PSCT 

0132 

0133 * Initialize FORTRAN I/O Subroutine 

013* * * Called by FORTRAN main program . 

0135 * * Does not assume reset occurred. 

0136 iitikiiixixioiitiiiimiKiiiixiiiiiitiixxit 

0137 INITLZ LDX ACIAO* Get output ACIA address 
0130 CF'X #ACIAR* Resident ACIA? 

0139 BEG INIT2 Yes, skip output ir.it. 

01*0 LDX *0 

01*1 INIT1 E:SR RTRN Delay before master reset 
01*2 DEX . (may not be required) 

01*3 BNE INIT1 
01** LDX ACIAD* 

01*5 LDAB CTRLO* 

01*6 E''5R .INITA Initialize output ACIA 

01*7 INIT2 LDX ACIAI* Get input ACIA address 
01*8 CPX *ACIARJ Resident ACIA? 

01*9 BEG INIT3 Yes. skip input init. 

0150 LDAB CTRLI* 

0151 BSR .INITA Initialize input ACIA 

0152 INIT3 LDX LPIA* Init. LF’ PIA 

0153 C.LRA 

015* ST AA 1 ,X Clear control registers 

0155 STAA 3,X . in case no reset 

0156 x (accesses data dir reg) 

0157 STAA 2 , X Set B DDR for inputs <=*00 > 

0150 COMA 

0159 STAA 0.X Set A DDR for outputs <=*FF> 

0160 LOAA CTRLA* 

0161 STAA 1 ,X Set A control reg 

0162 LDAA CTRLB* 

0163 STAA 3,X Set E ; control reg 
016* RTRN RTS 

0165 PAGE 

0166 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

0167 x Initialize ACIA Subroutine 

0168 x Entry*. X= base ACIA address 

0169 x E:= control register byte 

0170 XXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXKXXMXKXX 

”171 .INITA LDAA *3 

0172 STAA 0,X Master reset 

0173 STAE: 0,X Set control register 
017* RTS 
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Eh I 1 
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0175 SPC 1 

0 176 nuixuciixKiiiiixmixixixiiimmiixKxiix 

0177 * Print CR , LF , NULL Subroutine 

0178 * uses A register 

0179 xi preserves B and X 

0180 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

05 B1 PCRLF* PSHE: 

0 1!j2 LDAA #CR 
0183 FJSR DUTCH* 

0 1B1 LDAA *LF 
0 1B5 BSR OUTCH* 

0186 PULS B (PC RETURN 
01B7 SPC 1 

0 18B IlXIIXXIXIXIXXIIXXXXXXXIXIXXXiXIXXXIIXXIXIIXI 

0189 * Input char, strip parity, S echo subroutine 

0190 X E::itJ A= char (7-bits> 

0191 * B and X preserved 

0192 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

0193 INtNP JSR INSNF'E 

0191 ■ Fall into char output subroutine 

0195 SPC 1 

0196 ixxxixixiiiixiiixixxixixxiiixixxxxixxxxxxxxxi 

0197 * Character Output Subroutine 

0198 * A= Char to output <B-bits> 

0199 x A, B and X preserved 

0200 XXXXXXXXXXIXXXXIXXXXXXXXXXXXXXIXXXXXIXXXXIIIX 

0201 OUTCH* PSHS A,E:,X Save reg'S 

0202 OUTCH1 LDX ACIAO* 

0203 LDAE: 0,X Get ACIA status 
0201 ANDB *2 Ready yet? 

0205 E:EQ OUTCH1 No, try again 

0206 LDA Q,S 

0207 ST AA 1,X Yes, send char 
0 208 LDAE: CHNUL Char nulls 

0209 x Test for CR nulls or char nulls 

0210 CMP A #CR 

0211 BNE 0UTCH5 

0212 LDAE: CRNUL CR nulls 

0213 0UTCH5 TSTB 

0211 E:EQ CJIJTCH7 

0215 DUTCH* LDAA 0,X Get ACIA status 

0216 ANDA *2 Ready yet? 

0217 E:EQ 0UTCH6 No, try again 

021B CLRA 

0219 STAA 1,X Send hull 

0220 DECS 

0221 BRA DUTCH5 

0222 SPC 1 

0223 0UTCH7 PULS A PC Restore reg's & return 

0221 SPC 1 

0225 0UTCH1 LDX GTMAIN 

0226 BED 0UTCH1 

0227 TST CIC* MH12 Controller in charge? 

0228 E:NE OUTCH1 Yes (or no MM12 present) 

0229 JSR 0 , X Do possible handshake 

0230 BRA OUTCHl 

0231 PAGE 

0232 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
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PAGE 005 IOPKG .SAJI UMET-1 

0233 * Print Message String Subr.Cno CR,LF> 

023A x X- Adr of data string 

0235 * uses A and X reg's 

0236 ■ preserves E 

0237 xxaxaxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

0238 PDATl* LDAA 0,X Get next char 

0239 ChPA #E0T 
02A0 EEQ RTRN 

02A1 ESR DUTCH* Output char 
0 2A2 INX Point to next one 
02A3 ERA PDAT1* Continue 
02 V* SPC 1 

02A5 iixiii'mio’XirxixiiiiMiHiiidixxiMixiiit 

02-16 » Input Char (w/parity, no echo) Subroutine 
G2'!7 x Exit t A= char (8-bits) 

02V:! a £: and X preserved 

02A? «xxxix>ixxxxxxixxxxxxxra.xxxxxxxixixxxxxxxxiix 

0250 IN*NE PSHS X 
1)25) INCH0 LDX ALTAI* 

0252 LDAA 0,X Get ACTA status 
025? ASRA PesJy? 

H25'i BDC INL.H2 

0255 LDAA l,X Yes, got char 

0256 PULS X,PC Return 

0257 SPC 1 

0258 INCH2 LDX GThAIN 
0 25? BEG INCHO 

H26B TST CIC* 

0 261 BNE INCHO 

0262 PSHFs 

0263 JSR 0,X 
0 26-* PULE 
1)265 ERA INCHO 

0266 PAGE 

0267 xxiixxxxixxxxxixixxxxxxxxxixiixiiixixxxixxxxx 

02AB x Output Char to LP Subroutine 

0269 * Entry! A= char to print <8-bits) 

0270 ■ Exit: C= 1 if error 

027) « A, E arid X preserved 

0272 ■xxxxxxxxxxxxiixxxxixxxxxxxxxxxxixxxxxxixxiix 

0273 LDUTC* PSHS X 
027 A LDX GTMAIN 

0275 BED LOUTQ 

0276 TST CIC* 

0277 EEO LOUT 10 

0278 LOUTO LDX LPIA* 

0279 STAA 0,X Send data 

02B0 LDAA 0,X Clear acknowledge 
0231 LDAA STRBA* 

0282 ESR STROEE Send strobe 
0233 LOUT1 LDAA 2,X Check status 
023A ANDA *3 Bit 0=Select, 

0285 * Bit l^A’aper enpty 

0236 DECA A Should have been *01 

0237 ENE LOUTER No paper or not ready 

0283 TST 1,X Acknowledge? 

0289 EPL L0UT1 NO 

0290 CLC 


Of^F’AL FAGL r & 
OF POOR QUALITY 


PAGE 006 XDPKG . SA S 1 UMET-1 15 DEC 1962 

0291 LQUTX LDAA 0,X 

0292 PULS X.PC Return 

0293 SPC 1 
029^ L0UTER SEC 

0295 BRA LOUTX 

0296 SPC 1 

0297 LOUT10 PSHS A • E 
0 2913 JSR 0,X 

0299 PULS A,B 

0300 BRA LOUTO 

0301 SPC 1 

0 302 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

0303 * Strobe Printer Subroutine 
03UA x A= Strobe value 

0305 * B and X preserved 

0306 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXX 

0307 STROBE BSR STR0B1 Send strobe byte 
0306 LDAA CTRLA* Reset strobe 

0309 STROB1 STAA 1,X 
Q 31 0 RTS 

0311 SPC 1 

0312 XXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXKXXXXX 

0313 * Input Char (strip parity* no echo) Subr • 

0314 x Exits A= char (7-bits) 

0315 * E' and X preserved 

0316 XXXKXXKXXXXXKXXXXXXXIXXXIXXXXXXXXXXXXXXXXXXXX 

0317 INSNPE BSR INtNE 

0318 ANDA *$7F Strip parity 

0319 RTS 
032(1 PAGE 
0321 END 



. I * 


PAGE 

00 01 
0002 
0 0 03 
0004 
0 005 
0004 

0007 

0008 
0009 
ODIO 
0 011 
0 012 
0 013 
Oil I** 
U 0 1 5 
0016 
0017 
0 018 

0019 

0020 
0021 
0 022 
0 023 
0 024 
0 0 25 
0 026 
0 027 
0 028 
0 029 
0 0 30 
0 031 
0 032 
0 033 
0 034 
0 035 
0 036 
0037 
0 038 

0039 

0040 

0041 
0 0 42 
0043 
0 044 
0 045 

0046 

0047 
0 048 
004? 

0050 

0051 


t *V* 


001 JUMPER .SAJI UMET-1 15 DEC 1982 

DPT L i REL 
OPT LLE=60 
NAM JUMPER 
IDNT JUMPER 
XDEF JUMPER 
x 

* THIS PROGRAM RETURNS TO THE MONITOR 


CSCT 

IFLAG RMB 2 
BYTE 10 RHE: 


BYTE? 

PYTE8 
BYTE7 
BYTE 6 
BYTES 
EYTE4 
BYTE3 
BYTE2 
BYTE1 
BYTE 11 
BYTE 12 
BYTE13 
BYTE 14 
ISTPER 
TEMPX RHB 2 
INTMSK RMB 2 
IRAM1 RMB 2 


RMB 
RMB 
RMB 
RMB 
RMB 
RMEi 
RMB 
RMB 
RMB 
RMB 1 
RMB 1 
RMB 1 
R'MB 1 
RMB 2 


IRAM2 

IRAM3 

IRAM4 

IRAM5 

T.RAM6 

IRAM7 

IRAM8 

IRAM9 

IRAM10 


RMB 2 
RMB 2 
RMB 2 
RHB 2 
RMB 2 
RMB 2 
RMB 2 
RMB 2 
RMB 2 


ITOP RMB 2 
IBOT RMB 2 

IDATA RMB 1500 i IRAM ARE 

XXXXKXXXXXXXXXKXXXXXXXXX 


STACKED INTO THE IDATA ARRY TO BE PROCESSED 


x PROGRAM FOLLOWS 

x 

PSCT 

JUMPER LDA >*E0 03 
AND A #SFC 

STA >*£0 03 ! "URNS OFF INTERRUPTS 

JMP >*F830 J JUMPS TO MONITOR 

END 


G~,:[ 


OF POCT; QuALiTV 
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00 01 
00 02 
0003 
00 04 
0005 
0 006 

0007 

0008 
0 009 
U01 0 
0011 
0012 

0013 

0014 

0015 

0016 
0 0 17 
0013 
00 19 
0020 
1)021 
0022 
0023 
0 024 

0025 

0026 
0 027 
0 0 28 
0 029 
0 0 30 
0031 
0 032 
0033 
0 034 
0 035 
0036 
0 037 

0038 

0039 
OQil! 

0041 

0042 

0043 

0044 
0 0 45 
0 046 
0 0 47 
0048 
0 049 
0050 
0 051 

0052 

0053 

0054 
0 055 
0 056 
0 057 
0058 


« DECOMMUTATOR PROGRAM - UNIV. OF UTAH 

C 

OPTION STACK=200 
C 

s 

uiKiiiiixmimimtiiiK COMMON BLOCK iiiiMXXiiiixxxxiixxxnxxxxxxt 
* 

INCLUDE 'COMMON. SA' 

C 

xxxxxxxxxxxxxxxxxxxxxixxxxxixixxxxxxxxxxxxxixixxxxxxxxxxxxxfxxxxxxxxxxxxx 

X 

DIMENSION LINE C 40 ) , LDATE ( 3 ) , LTIME ( 3 ) ,ID(2> , ISTT1 ( 3 > , ISTT2 ( 3 ) 

a 

x 

■ SEARCH AND GATE HALFWIDTHS 

x 

C 

x 

WRITE < 10 0,5431) 

5431 F0RMAT<////////////////,31( ' ' ) , 'UNIVERSITY OF UTAH',/, 

8 35 <'*')» ' UMET-1 ' ,34( '*'),//, ' 

8 'REAL TIME PROCESSING OF METEOROLOGICAL BALLOON SOUNDING DATA', 

8 /////////) 

WRITE (10 1,5432) 

5432 FORMAT < 'ENTER PRINTER OUTPUT CODE',/,' l=NO DIAGNOSTICS',/, 

8 ' 2=C0NDENSED POINTS AFTER FLIGHT',/, 

8 ' 3=DI AGNOSTICS PRINTED DURING FLIGHT',/) 

READflOl, 5433) IDG 
5433 FORMAT (13) 
x 
x 

DO 13 J=1 , 120 
DO 14 1=1,7 
VL ( I , J > = 0.0 
14 CONTINUE 

13 CONTINUE 

C 

c 

CALL PRNTER JSET UP PRINTER FOR 132 CHAR LINE 

IOUT=102 

WRITE (IOUT, 9998) 

9998 FORMAT (' 1 ', 131 ('*'),/, 10 <'*'), 41X , 11 ('.'), ' UMET-1 ',1K'.'>, 

* 4 OX, 10 ('*'),/, 10 ('*'),3BX,' CONDENSER", 

8 '/DECOMMUTATOR PROGRAM ', 37X , 1 0 <'*'),/, 10 ('*') , 

8 111X,10<'*'),/,131<'*')> 

WRITE (IOUT, 9997) 

9997 FORMAT < //l 03X, 'UNIV. OF UTAH AUG 1982',//) 

WRITE ! IOUT , 999 ) 

999 FORMAT <1X,45X, 'xxxxxxxxxx INPUT DATA xxixxxxxxx'//) 

C RUNNING TIME, T, IS SECONDS ELAPSED AFTER LAUNCH. 

C xxx TPRDC IS THE TIME INTERVAL (SEC) TO BE PROCESSED, 

C xxx BEGINNING AT TSTART SECONDS AFtEF: LAUNCH. 

C TLANCH = BALLOON RELEASE TIME OF DAY. COUNTED IN SECONDS 

x 

50 08 TPROC=9999.0 
TSTART=0 . 

GOTO 5108 

1003 WRITECIOUT, 10004)11, 12, TS3 
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005? 10009 FORMAT < ' BALLOON RELEASED AT ' ,2(12, ' *. ' > ,F9 . 1 > 

0060 C 

0061 C CONVERT II (HOURS ) ,12 (MIN) ,TS3 ( SEC) TO SECONDS 

0062 C 

0063 TLANCH = Il«3600. ♦ I2»60. ♦ TS3 

0069 IF (TSTART .LT. .01) TSTART * - 120. 

0065 IF (TPROC .LT. .01) TPROC * 10000. 

0066 TSTOR * TPROC - TSTART 

0067 GOTO 6769 
0 066 * 

0069 C «xx LINENO IS THE NUMBER OF LINES PER PAGE TO BE PRINTED 

0070 ■ 

0071 S1QB LINENO=S9 
0 072 x 

0073 * 

0079 C INITIALIZE CONDENSER 

0075 » 

0076 FSUM =0.0 

0077 NSUM = 0 

0078 x 

0079 C LOSS OF SIGNAL FLAG LOS 

0080 x 

0 0B1 LOS «= 0 

D 082 * 

0083 C MODE INTERVAL ( OVERLAPPING BANDS) HALF-WIDTH ( 0,5 HZ) 

0089 * 

0085 HGATE = 1.0 

0 056 x 

0087 C SIGNAL RANGE ( SIGMIN TO SIGMAX HZ ) 

0088 x 

0039 SIGMIN = 5. 

009(1 SIGMAX = 205. 

0091 IN = ( ( SIGMAX - SIGMIN )/ HGATE ) + 1 

0092 * 

0093 C CONDENSED DATA INDEX JK, FOR ONE DECOMMUTATION CYCLE 

0 0 99 x 

0095 JK=Q 

0096 ISTPER-0 

0097 C 

0098 DO 1 1=1,900 

0099 CONB( 1,1) = 0.0 

010 0 COND ( 2 1 1 ) = 0.0 

0101 CONDO, I) = 0.0 

0102 ICDND (1,1) = 0 

0103 ICOND (2,1) = 0 

0109 1 CONTINUE 

0105 C 

0106 x 

0107 C INITIAL EXPECTED SIGNAL LEVELS 

0108 * 

0109 * 

0110 x 

0111 JJ=0 

0112 * 

0113 * INITIALIZE TABLE 

0119 x 

0115 TNOH s 10000.0 

0116 VL ( 1 , 1 ) = 0.0 



PACE 

0117 

0118 
0 3.19 
0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 
0129 
013(1 

0131 

0132 

0133 

0134 

0135 
0 136 
old; 

0 1311 

0139 

0140 

0141 

0142 

0 1 43 

0144 

0145 

0146 

0147 

0148 
11149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 
015(3 
015'.' 
0160 
0161 
0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 


c *'G:?i 7 Ai 

0F POOH 
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9811 

DLIST=60. 

TGMOAQ*ZO • 

LIST=1 

WRITE<100,9811> 

FORMAT ( 'ENTER STATION ID (XX)',/) 


9816 

RE AD ( 1 0 1 , 5432 i IDSTAT 
WRITE(100,9fel6> 

FORMAT ( 'ENTER STATION GEOFOTENTIAL HEIGHT (XXXX.X)', 

/) 

9806 

READ <101, 5444 >H£IGHT 
WRITE (100,9806) 

FORMAT < 'ENTER ZERO AZIMUTH? NORTH = O, SOUTH - l 

/> 

9813 

READ ( 101,5433 >IAZU 
WRITE ( 100,9813) 

FORMAT (' ENTER LAUNCH MOVlTH (XX)',/) 


9814 

READ < 10 1,5433 )IMQNTH 
WRITE (1 00, 9814) 

FORMAT < 'ENTER LAUNCH DAY (XX)',/) 


9815 

READ (101, 5433 ) IDA Y 
WRITE ( 100,9215) 

FOliri.V! < 'ENTER LAUNCH YEAR <XX>',/> 


9802 

READ <101, 5433 >IYEAR 
WRITE- <10 0 ,9802) 

FORMAT < 'ENTER SURFACE TEMPERATURE IN C <XX.X>',/> 


9803 

READ < 1 0 1 , -j445 >SURT 
WRITE (100,9303) 

F CIRNAT ( ' ENTER SURFACE RELATIVE HUMIDITY X <XX.X>',/> 


9301 

READ <10 3 ,5445 )SURH 
WRITE <10 0,9801) 

FORM AT < 'ENTER SURFACE FRESSURE IN MBAR <XXXX.X)',/> 


9321 

READ <1 01,5444 )FF’0 
WRITE <100, 9821 5 

FORMAT ( ' ENTER SURFACE WIND SPEED <XXX.X)',/) 


9823 

READ (101, 5467 5VSFC 
WRITE < 1UO , 9823 ) 

FORMAT< 'ENTER SURFACE WIND DIRECTION (XXX, X)',/) 


9812 

READ <101, 5467 ) DSFC 
WRITE < 100,9812) 

FORMAT< 'ENTER SONDE ID NUMBER - LESS THAN 32000 <XXXXX)',/> 

5459 

READ (101, 5459 ) IDSOND 
FORMAT (15) 


9804 

WRITE<100,9804) 

FORMAT < 'ENTER UNADJUSTED REFERENCE ORDINATES CXX.X)' 

,/> 

9817 

READ <101 ,5445) FRO 
WRITE < 100,9817) 

FORMAT < 'ENTER AIR TEMP CALIBRATION ORDINATES (XXX.X) 

',/) 

9818 

READ <101, 5467 ) RECTF 
WRITE< 10 0,9818) 

FORMAT ( 'ENTER REL HUM CALIBRATION ORDINATES (XXX.X)' 

,/-> 

6136 

READ <101, 5467 > CALRH 
WRITE (100,6136) 

FORMAT( 'ENTER SURFACE TEMP ORDINATES (XXX.X)',/) 


6137 

READ <101, 5467 >FTEMPQ 
WRITE < 100 , 6137) 

FORMAT< 'ENTER SURFACE RH ORDINATES (XXX.X)',/) 


5444 

R£AD( 101 ,5467) FRHO 
FORMAT <F6. 1 ) 


5445 

FORMAT <F’4.1> 


5467 

FORMAT < F5 . 1 > 
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0175 

0176 9819 

0177 g 

0178 

0179 

0180 
0161 
0162 

0183 6665 
018T 

0185 6667 

0186 6666 

0187 

0188 
0189 
0191) C 

0191 C 

0192 C 

0193 
019S 

0195 

0196 

0197 5 

0198 * 

0199 * 

0200 ■ 

0201 

0202 

1)203 

OZO'l 9805 
0205 * 

021)6 

0 207 S-'We 

02013 

0209 

02:1 o 
0211 
0 212 
0 213 
021-0 

0215 

0216 8 

0217 8 

0218 
0219 
0221 ! 

0221 

0222 

0223 

0 22') 1028 

0225 8 

0226 8 

0227 8 

0228 8 

0229 4 

0230 S 

0231 8 

0232 g 


WRITE! 100,9819) 

FORHAT < ' FOR’ MILITARY SONDE !MLT19 .HL^IB) ENTER 1 './, 

'FOR STANDARD NWS SONDE ENTER 2', 7) 

READ! 101 ,5433) ICRBN 

IF <FR0 , LT . .01) GOTO 6665 

RFL=2.0*FRO-10.0 

PFL-RFL+20 

GOTO 6666 

FR0=95.0 

RFL-170. 

F’FL=19 0 . 

V2! 0) » FP0 
V2 1 5> * FR0»2 , 

V2! 6) = FTEMPO 
V2< 7) = FRHO 

SET INITIAL FREQUENCY GATES FROM SURFACE ORDINATE INPUTS 

CNVOF = 2,*FRQ/95. 

IF < CNVOF .LT. .01) GO TO S 
TF = FTEMP0*CNVOF 
HF=FRHO»CNVOF 
CONTINUE 


MANUAL BURST INPUTS 


TBR'ST = J.E22 
WRITE! 100,9805) 

FORMAT! 'ENTER CONTACT NUMBER AT BURST < XXX. X )',./, 

'IF < 10 IS INPUT, VALUE DEFAULTS TO 180.0',/) 

READ! 101 , 5006 ) CBRST 
FORMAT !F5.1) 

IF !CBF:ST .LT. 10.)CBRST * 1BQ.01 

HEIGHT=HEIGHT+ . 0009 ?TO ACCOUNT FOR TURNCATION 

FPO=FP04.0009 

FT EMP0=FTEMP0 + .0009 

FR0=FRQ+ . 00 09 

RECTP-RECTF"+ . 0009 

CALRH=CALRH+. 0009 

WRITE ( IOUT , 1 0 28 ) ID ST AT , HEIGHT , IAZU , IMQNTH , ID A Y , IYE AR , SURT , SURH , 
FP0 , VSFC , DSFC , IDSOND , FRO , RECTP , CALRH , FTEMP 0 , FRHO , ICRBN . 
C6RST 

HEIGHT=HEIGHT-,0009 5RESTORE INPUT VALUES 

FFO—FPO— .0009 

FTEMPO=FTEMPO-.O009 

FR0=FR0— .0009 

RECTF-=RECTP-. 0 0 09 

CALRH=CALRH- . 0009 

FORMAT C 'STATION ID =' ,13,7 , 'STATION HEIGHT s',F6.1,/, 

'ZERO AZIMUTH =',I2,/, 

'DATE =' ,12, ,12, ,12,/, 'SURFACE TEMP =',F6.1,/ f 
'SURFACE RH s' ,F6.1,/, 

'SURFACE PRESS =' ,F6. 1 ,/, 'SURFACE HIND SPEED =',F6.1,/ r 
■SURFACE WIND DIRECTION =', F6 . 1 ,/,' SONDE ID =',15,7, 
'REFERENCE ORD =' ,F6 .1 ,/ , 'TEMP CAL ORD =',F6*l,/» 

'RH CAL ORD =', F6 . 1 SURFACE TEMP ORD =',F6.1»7, 
'SURFACE RH ORD =' ,F6 . 1 ,/,' SONDE TYPE *',H,/» 



sa: j 


IS PEC 1982 


Of POOR QUAL11Y 


PACE 

005 

0233 

I 

0234 

a 

0235 

a 

0236 

0237 

■ 

0238 

C 

0239 

■ 

0240 

1623 

0241 

8201 

02-(2 

& 

U243 

£244 

0245 

0246 

0247 
D2«B 

12 

0 249 
0 250 
0251 

1626 

0252 
0 253 
0254 

1627 

0255 

U256 

025? 

025i; 

1628 

023'? 

0260 

0261 

0262 

0263 

0264 

*4 

to 

CD 

* 

0265 

0266 

1625 

0267 

0268 
0269 

9B09 

0270 

0271 

988 

0272 

9882 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 

2 

0281 

02B2 

0283 

0284 

9 

0285 

0286 

6 

0287 

028B 

0289 

0290 

100 


bikl N 


UMET-1 


'BURST CONTACT - ',F6.1> 


ISTOP • 0 

PRESSURE CALIBRATION INPUT 
MRJTE< 100,8201 > 

FORMAT t, ' ENTER PCAl INPUT CODE',/,' 1-USING TAPE READER ' ,/, 
' 2=ENTERING BY HAND',/) 

READ C ID 1 , 5433)IDUHH 

IF ( IDUMH .Ed. 2>GUT0 1625 

IFLAL=G 

DU 12 J=1 » 1E0 

PCALCJJ-O.O 

CONTINUE 

CALL SETUP 

HR1 l E ( 1 b 0 , 1 626 ) 

FORMAT (ENTER THE PUNCH PAPER TAPE') 

ISTf’ER-O 
J- U 

IF <11- LAG .LQ. DCtlUi 162E 
CALL STUPER 

IfdSTPER ,LG.1)G01U 1625 

GO i L; 1627 

J=J+1 

PCAL ( J > *IRAM < l ) + < . 1 *IRAM C 2 ) > 

IFLAG-0 

IF ( PCAL ( J ) .LT. • 1 ) GOTO 9881 

IF ( J .GE. 179JGOTO 9881 

GOTO 1627 

CALL OFF 

GOTO 9882 

CONTINUE 

DO 988 1*1 > 180 

WRTTE< 100,9809)1 

FORMAT ( 'ENTER PCAL',X3> 

READ< 101, 5444 >PCAL(I> 

CONTINUE 

IF(PCAL(1) .LT. .01 )COTO 1623 
DIFF1«PCAL<1)-PCAL<2) 

DO 8 1*2,179 
1ST *1/20 

PERC* • 1 1+XST/lOO • 

DIFF2*PCAL ( I ) -PCAL ( 1+1 > 

IF (F'CAL(X) ,CT. O.OGOTO 2 
IF (PCAL (I+l > .LT. O.ODCOTO 9 
DIFF AV* ( DIFF 1 +DIFF2 ) /2 . 0 
DIFFHI*DIFFAV«(1. ♦ PERC) 

DIFFLO=DIFFAV*(l. - PERC) 

IF(DIFF2 .GT. DIFFHI .OR. DIFF2 .LT. DIFFLO)GOTQ 6 

DIFF1-DIFF2 

GOTO 8 

IF ( PCAL ( I > -DIFF 1 .LT. 0)GOTO 8 

DUMMY*PCAL<I)-DIFF1 

XDUHNY *1+1 

WRITE < TOUT ,100) IDIIMMY , PCAL ( I+l ) , DUMMY 

FORMAT (7X, ' PCAL( ' ,13, ' ) HAS',F10.1,' AND IS NOW',F10.1) 
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0291 PCAL < 1+1 ) =PCAL ( I > -0IFF1 

0292 8 CONTINUE 

0293 WRITE (IOUT , 10 024 ) 

029'! 10 024 FORMAT ( ' 1 ' , 'BAROSWITCH PRESSURE CALIBRATION TABLE') 

0295 10020 FORMAT ( 8F10 « l ) 

0296 DO 1631 1=1,180 

0297 PCAL<I)«PCAL<I>+.05 {TO STOP TRUNCATION ERROR 

0298 1631 CONTINUE 

0299 DO 30 IY * 8,176,8 

0300 IDUHMY=IY-7 

0301 IDUH=IY~B 

03 02 WRITE ( 11 »UT ,10 023) IDUMMY , PCAL( IDUM+1 ) , PCAL(IDUM+2 > , PCAL( IDUM+3 ) , 

0303 S PCAL(IDUM+4> ,PCAL(IDUM+5> , PCAL( 1DUM+6 > , PCAL < IDUM+7 > ,PCAL (1DUM*8 ) 

0304 10023 FORMAT < IX , 13 , ' J ',8F10.1> 

0305 30 CONTINUE 

0306 WRITECIOUT , 10026) (PCAL ( IX > , IX=177 > 180 > 

0307 10026 FORM VF (IX, '177! ',4F10.1> 

0308 DO 1675 1=1,180 

0309 PCAL < I )=PC AL (I ) -. 05 ; RESTORES VALUES OP PCAL TABLE 

0310 1675 CONTINUL 

03)1 DO IV. i IP - J,18(i 

0*312 2‘, IF (PCAL ' JP) , LT , FPOIGO TO 16 

0313 36 ICR0 = ( ( FPO - PCAL ( JP-1 ) > / ( PCAL< JP)-PCAL ( JP-l ) > ) *1 00 . 

0314 XCR0 = ICR0 + <JP-1>*100 

0315 

0316 DO 3 LCNTK = 1,180 

0317 3 IF(PCAL(LCNTt<) ,LT . 0.1) GO TO 4 

0318 4 LCNTK = LCNTK - 1 

0219 DUMMY = ICR0 {CHANGES TO REAL 

0320 .AICR0 = DUMMY/100. 

0321 WRITE ( TOUT, 1!) 016 ) AICR0 , LCNTK 

0322 10016 FUKMA1 ( ' EFFECTIVE CONTACT NUMBER AT LAUNCH = ',F6.2,/ 

0323 S ' HIGHEST CONTACT NUMBER CALIBRATED = ',13) 

0324 * 

0325 WRITEdOO ,6789) 

0326 6789 FORMAT ( ' IF PCAL TABLE IS OK ENTER l',/.'IF NOT OK ENTER 2',/) 

0327 READ(101,5433)IDUM 

0328 IF (IDUM ,EQ. 2>GOTO 1623 

0329 » 

0330 6786 WRITE < 100, 6787 ) 

0331 6787 FORMAT ( 'ENTER HOUR OF LAUNCH (XX)',/) 

0332 READ( 101 ,5433)11 

0333 WRITE (100, 6788) 

0334 6788 FORMAT (' ENTER MIN DF LAUNCH (XX)',/) 

0335 READdOl ,5433)12 

0336 WRITEdOO, 6790) 

0337 6790 FORMAT( 'ENTER SECOND OF LAUNCH (XX.X>',/> 

0338 READ ( 101 ,S445)TS3 

0339 GDTD 1003 

0340 * 

0341 6764 WRITE (100,6791) 

0342 6791 FORMAT ('IF LAUNCH TIME IS OK ENTER 1',/,'IF NOT OK ENTER 2',/> 

0343 RE AD (1 01 , 5433 ) IDUM 

0344 IF (IDUM .EQ. 2) GOTO 6786 

0345 C 

0346 C FIND TSTART IN RAW DATA 

0347 IF (IDG .EG, 1>IOUT=101 

0348 IFLAG=0 


PAGE 

0349 

0350 
0 351 
0 352 
0 353 

0354 

0355 
0 356 
0 357 
0 250 

0359 

0360 

0361 
036? 

0363 

0364 
0 365 
D3&6 
03o7 
0368 
0 369 

0370 

0371 
037? 

0373 

0374 

0375 

0376 
0 377 
0270 

0379 

0380 

0381 
0383 

0383 

0384 

0385 
0336 
0387 
0338 

0389 

0390 
nr. 91 

0392 

0393 

0394 

0395 

0396 

0397 
0 398 

0399 

0400 

0401 
04DZ 

0403 

0404 

0405 

0406 
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ITOP— 0 
ieoT=o 
CALL INTERR 
WRITEdOO ,879) 

879 FORMAT ( ' *** SET UP TO RECEIVE REAL TIHE DATA ■*■') 

INTMSK-0 

ITOP-O 

IEOT«0 

IFLAC=0 

■ 

40 CONTINUE 

* 

mmutimx HANDLE REAL TInE DATA **Kix.*******Kx**xr***x^****ix**** 

a 


DO 41 vl-6,10 

4342 IF (IFLAG .GT. 0>GOTD 4344 

GOTO 4343 { LOOK AT FLAG UNTIL SET (IE DATA RELIEVED ) 

4344 INTMSK=2 {MASK INTERRUPTS 

IFLAG=IFLAG-1 
IFdBDT .EQ. 150 >I80T=0 

IDUM=IBOT*10 {THEPE ARE 10 IDATAS FOR EACH DATA POINT 

IBOT=IE:OT +1 {WORK WAY UP STACK OF DATA 

DUMMY=IDAT A ( XDUM+9 ) {PART OF hET WORD 

DUMMY1=IDATA(IDUH+ 10 > {REST OF MET WORD 

FREQ< J ) = (DUMMY *1 00 0 5+DUMMY1 

DUHM Y=IDATA ( IDUM+6 ) {PART OF EL WORD 

DUMMY 1=IDATA ( IDUM+5 ) 

EL< J)=DUMMY1«-(DUHMY*,Q1> 

DUMMY=IDATA ( IDUM+8 ) 

DUmMY1=IDATA ( IDUM+7 ) 

AZ( J)=DUHMY1+ (DUMMY*. 01 > 

DUMMY=IDATA ( IDUM+4 > 

DUMMYl=IDATACIDUM+3) 

SECS=DUMMYl-f (DUMMY*. 1) 

DUMMY=IDATA(IDUM+2> 

AMINU=(DUMMY*60. )+SECS 
HOURS= ( IDATA ( IDUM+1 ) ) *36 0 0 

TIME ( J ) —HOURS-*- AMINU-TLANGH {TIME IS IN SECONDS FROM LAUNCH 
INTMSK=0 
41 CONTINUE 

WRITE ( 10 0 , 20 03) TIME ( 10 > 

2003 FORMAT (F7 . 2 , ' SECONDS FROM LAUNCH') 

IF(TIME(10> .LT. OdGOTO 40 
WRITE ( 10 0,9825) 

9825 F ORMAT ( ' ixxi PAST LAUNCH TIME *«***') 

* 

mnxxxxnxiixxxx REAL TIME DATA IN PROGRAM *xtx;**x^********xx***x<**xtx< 

JJ = JJ+ 5 
C 

c 

99 CALL ADVANC < JJ , TSTOP .TLANCH , TGMDAG) , MASK) 


IF 

(MASK 

.ED. 

i ) 

GOTO 

81 

IF 

(MASK 

• EQ, 

2) 

GOtO 

82 

IF 

(MASK 

< Eu « 

3) 

GOTO 

825 

IF 

(MASK 

• £Q* 

4) 

GOTO 

826 


C 

JKMEM = JK 
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0407 
04 OB 
0409 
CUO 
Hll 

0412 

0413 

0414 

0415 
Ml* 
0417 
041B 

0419 

0420 

0421 

0422 
0 423 
0424 
0 425 
0 426 

0427 

0428 
0 42V 
0430 
0 431 
0432 
0 433 
0 434 

0435 
0 436 
0437 

0436 

0439 

0440 

0441 

0442 

0443 

0444 

0445 

0446 

0447 
044B 
0 44V 

0450 

0451 


CALL TRACK ( LOS • JK * MASK > 

IF (HASH .EG. 1 >GOTO B3 
IF (MASK .EO. 2) GOTO 05 
IF (JKHEM .EQ. JK)GD TO 99 
C 

410 CALL DECOM < JK ,TNOH , TF »HF , ICR0 , RFL . PFL »IDG > 

C 

IF ( COND < 1 , JK ) .CT. TBRST) GO TO B4 
GO TO 99 

2204 FORMAT (' ERROR IN CONOPASS#. READ') 

C**« *************** «**■***» 

C 

C 

825 WRITE C IOUT , 1B04 ) 

ISTOP=l 1 
GOTO «0 

626 WRITE (IOUT ,1606) 

I5TDF=12 
GOTO 90 

81 WRITEdOUT, 1810) TSTOP , TIME ( 1 0 > , JJ 
I ST CIF' * 7 

GO TO 90 

82 WRITEdOUT, 1820) TIME(IO), JJ 
ISTOP = 6 

GO TD 90 

83 WRITEdOUT, 1830) LOS 
ISTOP = 5 
GO TO 90 

85 WRITEdOUT, 1850 ) 

ISTOP * 8 
GO TO 90 

84 WRITEdOUT, 1840 ) JK , COND ( 1 , JK > ,TBRST 

1810 FORMAT ( 2X , ' TSTOP , TIME ( 10 ), JJ = ', 2F10.1, 1110) 

1820 FORMAT < 2X , 'END OF FILE , TIME( 1 0 ) , JJ *' , 1UX, F10.1, 1110) 

1830 FORMAT ( 2X , ' LOS = ',10X,I6) 

1840 FORMAT < / , ' TIME EXCEEDS T&RST. . . ,COND< 1 , ' ,13 , ' ) =',F10.2, 
* ' > TEiRST = ' , FI 0.2) 

1850 FORMAT (' EXCEEDED COND ARRAY DIMENSION') 

1B04 FORMAT( 'FLIGHT TIME GREATER THAN 110 MIN,') 

1906 FORMAT ( 'STOPPED BY OPERATOR') 
s 
C 

c 

C LIST UNINTERPOLATED COND/ICOND MATRIX 


0452 

0453 

0454 

0455 

0456 
0 457 
0 458 
0 459 

0460 

0461 

0462 

0463 

0464 


90 WRITEdOUT, 1900 ) 

1900 FORMAT ( // , ' CONDENSER DONE.'/' DECOMMUTATOR DONE.'/, 

« ' INTERPOLATION FOLLOWS ') 

DO 196 JC = 1,JK 

IEC = ICOND ( 2 , JC) 

* IF (IBC ,GT. 999>ICDND(2»JC) ■= IBC/1000 

IF ( ICON!) ( 2 , JC ) .GT. 20 0 )ICQND < 2 , JC ) = 0 
INDAX = ICOND ( 1 , JC ) 

IF ( ICOND (1,JC).GE.10. AND .ICOND(1,JC).LE.19)ICOND(1,JC) = 1 
IFdCOND(l»JC) .GE.40 .AND .ICOND ( 1 , JC ) . LE .49) ICOND < 1 , JC ) = 4 
IF ( ICOND ( 1 , JC ) . EQ , 0 , OR . ICOND ( 1 , JC ) . GT . 5 > ICOND < 1 , JC) * 5 


PAPE 

04 <65 

0466 

0467 
046B 
04 6V 

0470 

0471 

0472 

0473 
0 474 

0475 

0476 
0 477 
047B 
U479 

0480 

0481 

0482 
0 483 
0484 
(t-vr, 
0 486 
1)4-37 
048ft 
0489 
1)490 

0491 

0492 

0493 

0494 

0495 

0496 

0497 
0 498 

0499 

0500 
0 501 

0502 

0503 
05Q4 
0305 

0506 

0507 

0508 

0509 

0510 

0511 

0512 

0513 

0514 

0515 

0516 

0517 

0518 

0519 

0520 

0521 

0522 


OFffT r 
Or pijC 
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95 


* 

ft 

ft 

& 


FORMAT ( ' 1 ' » ' JK' ,6X, 'TIMEJ OF DAY? ELAPSED'. 

' DWELL TEMP. REF. HIGH REF. REL.HUM. UNDECOM' 

' BAROSWITCH WORKING WORKING ' , 

/6X , ' HHJMMJSS.S HOURS MMJSS.S (SEC > ' , 21 ( , 

' — <HZ> — '. 21 ('-'), ' CONTACT# CONTACT CHANNEL',/) 
RT2 = (CONDd, JC)+TLANCH>/3600. 

RT4 = COND ( 2 , JC ) 

ELPT = CONDd, JC) 

IT3 = ELPT/60 
DUMMY =ELPT/60. 

1DUMMY=*DUMM\ J TRUNCATES VALUE 

DUMMY 1=1DUMMY - J TRUNCATED REAL 

DUMMY=DUMMY-DUMMY1 


RT3=DUMMY*6 0 . J GIVES THE REMAINDER 

IT1 = RT2 J CHANGES TO INTEGER 

1T2 = ( RT2-IT 1 ) *60 
RT1 = ( (RT2-11 1 >*60-IT2)*60 . 


i 


IDUMMY = JC-1 

IF ( MOD ( IDUMMY , LINENO ) . EO . 0 ) WRITE (IOUT , 95 ) 

IDUMMYsICONDd , JC) 

GO TO (1910, 1920, 1930, 1940, 1950) IDUMMY 

1 91 0 WRITE (IOUT , 191 > JC , IT1 ,IT2 , RT1 , RT2 , IT3 , RT3 , RT4 , COND ( 3 , JC ) , 
ft ICOND ( 2 , JC ) »IE:C» INDAX 

GO TO 196 

1920 WRITE (IOUT, 192 > JC ,IT1 , IT2 ,RT1 , RT2 , IT3 , RT3 , RT4 , COND (3, JC) , 
ft ICOND(2, JC) ,IBC,INDAX 

GO TO 196 

1930 WRITE ( IOUT , 1 93 ) JC , IT1 ,IT2 , RT1 , RT2 , IT3 , RTS , RT4 , COND ( 3 , JC ) , 
S ICOND ( 2 , JC ) , I8C , INDAX 

GO TO 196 

1940 WRITE (IOUT, 194) JC ,IT1 , IT2 , RT1 , RT2 , IT3 , RT3 , RT4 , COND ( 3 , JC) , 
ft ICOND < 2, JC) ,IBC, INDAX 

GO TO 196 


1950 

WRITE (IOUT, 195) JC, IT1 , IT2 , RT1 , RT2 ,IT3 , RT3 

,RT4, CONDO, JC), 

J 

ICOND ( 2 , JC ) ,IBC, INDAX 



196 

CONTINUE 



191 

FORMA! < IX , 13 ,3X,I2,'t',I2,' J ' , F4 . 1 , F9 . 4 , 

IX, 12,' 

' ,F4 . 1 , F7 . 1 

ft 

F10.2,40X,5X,I6,ZI10> 



192 

FORMAT ( IX , 13 , 3X , 12 , ' J ' , 12, ' J ' , F4 . 1 , F9 . 4 , 

IX, 12,' 

' »F4.1,F7.1 

ft 

10X.F10 .2,30X,5X,I6,2I10) 



193 

F0RMAT(1X,I3,3X,I2, ' J ' ,12, ' J ' ,F4 , 1 ,F9 . 4 , 

IX ,12, ' 

' ,F4.1,F7.1 

ft 

20X,F10.Z,20X,5X, 16,2110) 



194 

FORMAT (IX, 13, 3X, 12, ' J ' ,12, ' J ' ,F4.1,F9.4, 

IX, 12, ' 

' ,F4 . 1 ,F7 . 1 

ft 

30X,F10.2,10X,5X,I6, 2110 > 



195 

FORMAT (IX, 13, 3X, 12, ' J ' ,12 , ' J ' , F4 . 1 , F9 .4 , 

IX, 12, ' 

' ,F4.1,F7.1 

ft 

40X.F10. 2, 5X, 16,2110) 




CXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

X 

CALL INTERP < JK , TNOH , ISTOP , LCNTK > 

X 

C 

Cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X 

X 
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0523 * PRINT TABLE 

0524 * 

0525 WRITE ( IOUT , 1030 ) 

0526 1030 FORMA l ('1', 13X, 'OECOHMUTATED OUTPUT AT UNIFORM TIME INTERVALS' ) 

0527 C 

0528 WRITEdOUT, 1131) 

0529 1131 F0RMAT(5X, 'INDEX TIME AZIMUTH ELEVATION PRESSURE REF FREQ', 

0530 * 5X,'TEMP REL HUM') 

0531 WRITE (IOUT , 1230 > 

0532 1230 FORMAT < 14X, ' (SEC > ( DEG) (DEG) (MB)', 5X, 

0533 & '(HZ) (ORDINATES) ') 

0534 **************************** WRITE THE TABLE nuiiiiximimix 

0535 DO 6767 LL=1,LIST 

0536 IDUMHY=LL-1 

0537 WRITE ( IOUT , 1330 ) IDUMMY ,VL(1,LL),VL(2,LL),VL(3,LL) ,VL(4.LL>, 

0538 a VL ( 5 , LL > » VL ( 6 , LL ) , VL ( 7 , LL ) 

0539 6767 CONTINUE 

0540 * 

0541 * 

0542 1330 F0RMAT(1X,I9,7F9.1> 

0543 ******************* FINISHED WRITING THE TABLE ***************** 

0544 C 

0545 C FINISH £XF J LAINING AND END 

0546 C 


0547 

0548 

0549 

0550 

0551 

0552 

0553 

0554 

0555 

0556 

0557 

0558 

0559 

0560 

0561 

0562 

0563 

0564 

0565 

0566 

0567 
056h‘ 

0569 

0570 

0571 

0572 

0573 

0574 

0575 

0576 

0577 
0 578 
0579 
0 580 


1043 

r 

WRITEdOUT, 1043) 

FORMAT ('*** REAL TIME PROCESSING COMPLETE *** ') 


w 

1042 

IFdSTOP .EG. 2) WRITEdOUT, 1042) KNTCT ,.LCNTK 

FORMAT ( IX, 'STOPPED AT CONTACT NR ' , 15 , 5X , ' LAST NON ZERO F'CAL NR', 

a 

15) 


1045 

IFdSTOF .EG). 5) WRITEdOUT, 1045) 

FORMAT C IX, 'STOPPED, CONDENSER UNABLE TO FIND SIGNAL. 

TOO NOISY' ) 

1046 

IFdSTOP ,EQ. 6) WRITEdOUT, 1046) 

FORMAT (IX, 'STOPPED, END OF INPUT DATA (EOF)') 


1047 

IFdSTOP .Ed. 7) WRITEdOUT, 10 47) 

FORMAT (IX, 'STOPPED, REACH TSTOP (TSTART+TPROC) ' ) 


: 349 

IFdSTOP . EB. 8) WRITEdOUT, 1048) 
FORMAT (IX, 'STOPPED, COND OVERFLOW') 


1050 

IFdSTOP .EG. 10) WRITEdOUT, 1050) 
FORMAT (IX, 'COMPLETED TO BURST') 


1051 

IFdSTOP .EG, 11) WRITEdOUT, 1051 ) 

FORMAT (IX, 'FLIGHT TIME IN EXCESS OF 120 MIN.') 


1052 

* 

IFdSTOP .EG. 12) WRITEdOUT, 1052) 
FORMAT (IX, 'STOPPED BY OPERATOR') 


* 

X 

s 

WRITE PRD COMPATIBLE TAPE 


* 

X 

DOUBLE CHECK FOR ZERO PRESSURE VALUES At TOP 

OF FLIGHT 

501 

DO 501 LL=1 , LIST 

J = LIST - LL + 1 

IF ( VL ( 4 , J > .GT. 0.0) GO TO 502 

CONTINUE 


502 

WRITE (IOUT, 6000) 
GO TO 503 
CONTINUE 




ZJ 
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0581 


LIST = J 


0561! 

503 

CONTINUE 


0583 

% 



Q58A 


NCDS=LIST 

{PASS THIS NUNBER TO PRD 

0585 

x 



0586 

X 

ONE 

MINUTE DATA IS PASSED IN UL ARRAY 

US07 

X 



05B8 


IQUT=102 

ISO PRD OUTPUT GOES TO THE PRINTER- 

0589 

X 



0590 


CALL JUMPER 


0591 

X 



0 592 

X 



0593 

6000 

FORMAT ( IX f '1 

LJNABLE TO FIND NON ZERO PRESSURE - EXFECT ERROR ' , 

0594 

ft 

'IN 

ECC-PRD PROGRAM') 

0595 

X 



0 596 


STOP 


0597 


END 



O' K* 
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PACE 001 OFF .SAJI UhET-1 15 DEC 1982 

0001 OPT L , PEL 

0002 OPT LLE=0O 

0003 NAM OFF 

0 0 0 A IDNT OFF 

0005 XDEF OFF 

0006 ***** 

0007 ***** 

0 0 00 CSCT 

0009 IDATA RME: 300 

0010 PSCT 

0011 OFF LDA f*06 

0012 STA >*E0 17 

0013 RTS 
QOl't END 
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00(11 
0 0 02 
0 003 
0004 
0 005 
0006 

0007 

0008 
0009 
0011 ) 
0011 
0012 

0013 

0014 

0015 
0 016 

0017 

0018 
0019 
0 020 
0021 
0 022 
0 023 
0 0 24 
0025 
0 026 
0 027 
0 0213 
0 029 

0030 

0031 
0 0 32 
11033 
0 034 
0035 
00 36 
0 037 
0 0 33 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 
0 054 

0055 

0056 
0 057 


OPT L . PEL 
OPT LLE-80 
NAM PRNTER 
IDNT PRNTER 
XDEF PRNTER 

X 

* THIS PROGRAM SETS UP THE PRINTER TO OUTPUT 132 CHAR PER LINE 

x 

CSCT 

IFLAG RUE 2 
BYTE10 RMB 1 
EYTE9 RME 1 
BYTES RMB 1 
BYTE7 RMB 1 
BYTE6 RME l 
BYTES RME: 1 
BYTE4 RME 1 
EYTE3 RME 1 
BYTE2 RMB 1 
EYTE1 RME 1 
EYTEll RMB 1 
BYTE 12 RME 1 
EYTE13 RMB 1 
BYTE14 RMB 1 
ISTPER RMB 2 
TEMPX RMB 2 
INTMSK RME 2 
IRAM1 RMB 2 
IRAM2 RME: 2 
IRAM3 RMB 2 
I RAM 4 RME T. 

IRAM5 RME 2 
IRAM6 RME: 2 
IRAM7 RME 2 
IRAM8 RME: 2 
IRAM9 RMB 2 
IRAM10 RMB 2 
ITOP RME 2 
I EOT RME: 2 

IDATA RMB 1500 (IRAM ARE STACKED INTO THE IDATA ARRY TO E:E PROCESSED 

XXXXXXXXXXXXX.XXKXXXXXXXX 


X 

« PROGRAM FOLLOWS 


F'SCT 

PRNTER JSR >*5B52 
LDA *tlB 
JSR >*5CQA 
LOA #*14 
JSR ">*5C0 A 
LDA >*E007 
ORA #*30 
ANDA **F7 
STA >SE0 07 
RTS 
END 


UNIT PRINTER 
rSEND 

{PRINTER SET UP FOR 132 CHAR PER LINE 


{THIS DISABLES THE SHIFT REGISTER 
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0 0 0 1 
0002 
0 0 03 

0004 

0005 

0006 
0007 
00 08 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 
0017 

ooie 

0019 
0 02 !) 
0 021 
0 022 
0 0 23 
0 024 
0 025 
0026 
0 027 
0 028 
0 0 29 
0 030 
0031 
0 032 
0 033 
0 0 34 
0 0 35 
0036 
0 037 
0 038 

0039 

0040 

0041 

0042 

0043 
0 044 
0045 
0 0 46 
0047 
0 0 48 
1) 0 49 

0050 

0051 

0052 

0053 

0054 
0 055 
0 056 
0 057 
0058 
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001 REAL .SA:i UMET-1 15 DEC 1982 

OPT UREL 
OPT LLE=80 
NAM REAL 
IDNT REAL 
XDEF REAL 

lumiiu THIS IS THE INTERRUP PROGRAM xxxxxxxxxxx 

* DATA FROM THE TRADT IS VALID ON THE PIA'S 

» TO CAUSE AN INTERRUP. THIS PROGRAM READS THE DATA 

¥ INTO BYTES WHERE IT IS FORMATTED INTO INTERGERS 

* AND STORED IN IRAMS, WHERE FORTRAN SUE 'FORM' RE-FORMATS 

¥ THE DATA INTO REAL NUME'-ERS AND STORES THEN IN TEMP 

¥ STORAGE. THEN INCERMENTS IFLAG AND RETURNS TO THIS 

¥ PROGRAM WHERE A RT1 IS ‘DONE. 

* THE COND PROGRAM THEN IS LOOKING FOR IFLAG TO EE SET 

¥ SO IT CAN TAKE THE DATA FROM THE TEMP STORAGE AND USE IT. 


CSCT 

IFLAG RME* 2 
BYTE 10 RMB 1 
EYTE9 RMEs 1 
BYTES RHE: 1 
BYTE7 RME 1 
BYTE6 RME* 1 
BYTES RME 1 
BYTE4 RME 1 
BYTES RME 1 
BYTE2 RME 1 
BYTE1 RME 1 
BYTE11 RME 1 
BYTE12 RME 1 
EYTE13 RME 1 
BYTE 14 RME 1 
BYTE 15 RME 1 
BYT El 6 RME 1 
TEMPX RME 2 
INTMSK RME 2 
IRAM1 RME 2 
IRAM2 RME 2 
IRAM3 RME 2 
IRAM4 RME 2 
IRAMS RME 2 
IRAM6 RME 2 
T.RAM7 RMB 2 
IRAMS RME 2 
IRAM9 RMB 2 
IRAM10 RME 2 
ITOP RME 2 
IEOT RMB 2 

IDATA RME 1500 JIRAM ARE STACKED INTO THE IDATA ARRY TO BE PROCESSED 

XX XX XXXXXXXXXXX ¥¥¥¥¥¥¥¥¥ 

X 


¥ PROGRAM FOLLOWS 

x 

PSCT 

REAL LDU *481 0C {COMMON STARTS AT 9100 SO TUI 3 WILL PUT STACK INTO BYTES 
LDX *«E0 0O {BOTTOM ADDRESS OF HA'S 


OF POO R QOA;.! lY 
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oo*;? 

X 

t/DOO 

X 

0061 

X 

0062 

X 

0063 

X 

0 0 69 

LOO 0,X 

00 65 

PSHU D 

0066 

LDD q f x 

0067 

PSHU O 

0068 

LDD 6 * X 

0 069 

PSHLJ D 

0070 

LDD 12 *X 

1) 07 1 

PSHU D 

0 0 72 

LDD 16, X 

0073 

PSHU D 

0079 

X 

0 075 

X 

0076 

X 

0077 

X 

0078 

X 

0079 

X 

0030 

X 

0081 

X 

00(32 

X 

00(33 

X 

0089 

X 

0085 

X 

00(36 

X 

00(37 

X 

008(3 

X 

0 £ tf 9 

X 


NOTE HERE THAT FIAS ARE HARD HIRED SO RSO GOES TO ADDRESS Al 
AND RSI GOES TU AO. THIS PUT THE DATA PORTS NEXT TO EACH 
IN MEMORY, TO USE OF THE D REGISTER. 

{START GETTING THE OATA 

{ STORES PART OF MET WORD AT BYTEl « BYTE2 
{GETS MORE OF THE MET HQRD 

{STORES MORE OF THE MET WORD AT BYTE3 &BYTE9 


{RAW DATA IS NOW STORED FROM BYTE1-BYTE10 

FORMAT THE OATA INTO INTERGER IN IRAM USING BYTE11-6YTE16 
AS SCRATCH PAD, THEY ARE STORED AS FOLLOWS: 

IR AMI “HOURS 

IRAM2=MIN 

IRAM3=SEC 

IRAM9=.SEC 

IRAM5=DEGREES OF EL 

IRAM6*. DEGREES OF EL 

IRAM7=DEGREES OF AZ 

IRAM8=. DEGREES OF AZ 

IRAM9=TH0USANDS PLACES IN MET WORD 

IRAM1 (SLOWEST 3 VALUES OF MET WORD (IE UP TO 999) 

DO NOT WRITE IN NEW DATA IF FORTRAN IS FORMATTING OLD DATA 


0 091) LDD INTMSK 
0091 CM PD #$ai 
0 0 72 EiNE DOIT 
0093 LDD *$02 
0 099 STD INTMSK 

0095 LBRA DONE 

0096 * 

0097 * FIND VALUE OF HOURS 

0098 DOIT LOB BYTEl 0 

0099 LSRB 

0100 LSRB 

0101 STB BYTEl 1 

0102 LSRB 

0103 LSRB 
0109 LSRB 

0105 LSRB 

0106 LDA BYTEl 1 

0107 ANDA **0F 

0108 STA BYTE11 

0109 LDA **QA 

0110 MUL 

Dill ADDS BYTEl 1 

0112 STD IRAM1 

0113 * NOW DO MIN 

0119 LDA BYTE10 

0115 ANDA *$03 

0116 STA BYTE11 
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F'AGE 0 03 REAL .SA51 UMET-1 

0117 LDA BYTE9 

0118 ASLA 

0119 BCC NOCAR 

0120 LDA BYTE 11 

0121 LSLA 

0122 ORA **01 

0123 STA 6YTE12 

0124 BRA LOWHIN 

0125 NOCAR LDA BYTE 11 

0126 LSLA 

0127 STA BYTE12 

0128 LOWMIN LDA BYTE9 

0129 ANDA #*78 

0130 LSRA 

0131 LSRA 

0132 LSRA 

0133 STA BYTE 13 

0134 LDB BYTE12 
0133 LDA «»0A 

0136 NUL 

0137 AD OB BYTE 13 

0138 STD IRAH2 

0139 * NOW DO SECONDS 

0140 LDA BYTES 

0141 LSRA 

0142 LSRA 

0143 LSRA 

0144 LSRA 

0145 STA BYTE11 

0146 LDB BYTE9 

0147 ANDB **07 

0148 LDA **0A 

0149 HUL 

0130 ADDS BYTE11 

0151 STD XRAH3 

0152 * NOW DO TENTHS OF SECONDS 

0153 LDB BYTES 

0154 ANDB **0F 

0155 LDA **00 

0156 STD IRAM4 

0157 * 

0158 * TIME WORD DONE 

0159 * START ON EL WORD 

0160 LDA BYTE7 

0161 ANDA *S0F 

0162 STA BYTE11 

0163 LDB BYTE7 

0164 ANDB **FQ 

0165 LSRB 

0166 LSRB 

0167 LSRB 
0160 LSRB 

0169 LDA **0 A 

0170 HUL 

0171 ADDB BYTE11 

0172 STD IRAM5 

0173 * DO F'ART OF DEGREE EL 

0174 LDA BYTE6 


F'AGE 0 01 
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0175 ANDA #*OF 

0176 ST A BYTEU 

0177 LDB BYTE6 

0178 ANDE MFD 

0179 LSRE: 

0181! LSRE: 

0181 LSRE 

0182 LSRE: 

0183 LDA #*OA 
0181 MUL 

0185 ADDS: BYTE 11 

0186 STD IRAH6 

0187 * DONE WITH EL 

0188 * START ON AZ WORD 

0189 LDE: BYTES 

0190 LSRE 

0191 LSRE 

0192 LSRE: 

0193 LSRE: 

0191 LDA #*61 

0195 MUL 

0196 STD BYTE 13 

0197 LDB BYTES 

0198 ANDE: #*QF 

0199 LDA #*t)A 

0200 MUL 

0201 ADDD BYTE13 

0202 5TD BYTE13 

0203 LDA #*00 
0201 LOG EYTE1 
0205 LSRE: 

0 20 6 LSRE: 

0207 LSRB 

0208 LSRE 

0209 ADDD BYTE13 

0210 STD IRAM7 

0211 * NOW DO TENTHS OF DECREE AZ 

0212 LDA E:YTE3 

0213 LSRA 
0211 LSRA 

0215 LSRA 

0216 LSRA 

0217 STA BYTE11 

0218 LDB BYTE1 

0219 ANDE #*QF 

0220 LDA #* 0 A 

0221 MUL 

0222 A DDE: BYTE 11 

0223 STD IRAM8 

0221 * AZ WORD DONE 

0225 * START ON MET WORD 

0226 LDA EYTE2 

0227 LSRA 

0228 LSRA 

0229 LSRA 

0230 LSRA 

0231 STA BYTE 11 

0232 LDB BYTE3 



PACE 005 REAL .SA:i UMET-1 15 

0233 ANOB ttOF 
0231 LDA **OA 

0235 hUL 

0236 ADDE DVT Ell 

0237 STD IRAil? 

■ do Lai;'! or met word 

(239 LDD BYTE2 
1 210 ANDD **or 
on: L0A 0*61 

0212 MUL 

0213 STD BYT LI 3 
021'! LDD BYTEl 

0215 ANDt «1U1 

0216 Sir: 0,1 Ell 
o:'," LDfc I.tTLJ 
U21L LSRt 

C 2'!<. LEND 
.0 25.0 15T-.L 

0231 LSIVL- 
0231 LEV; *J 'J.'i 
MUL 

1- 2L . AL-DU I-.TE.ll 

.ill:; ,-,cpd evtlio 

02- .-C. STD I r-.AiM C 
025 “ * 

025V- r DAT fi 13 f U PWiT'.EO AT. 3 NT EROER'S 

t-25^ » KCW rOKfi.'T-. INTO IDATA ARRY FOR USE IN MAIN 

0260 *• MET PROGRAM. 

1)26 1 * 

1*26-2 I DO ITOP 
mZAP ADOD #*0l 
0761 CMF'D 0150 

0265 ONE ISTOP 

0266 LDD 0*0000 

0267 ISTOP STD ITOP 

0268 CMPO IBOT 

0269 E'NE SETFLC 

0270 LDD IBOT 

0271 ADDD 0*01 

0272 CMF'D 0150 

0273 BED ATTOP 
027* STD IBOT 
027-5 BRA SETFLC 

0276 ATTOP LDO 0*0000 

0277 STD IBOT 

0278 SETFLC LDD ITOP 

0279 CMPD IBOT 

0280 BLO WORKUP 

0281 SUED IBOT 
02B2 STD IFLAC 
0283 BRA STOR 

0281 WORKUP ADOD 0150 

0285 SUED IBOT 

0286 STD IFLAC 

0287 STOR LDX TEHFX 


0288 LDD IRAM1 


0289 STD ,X++ 


0290 LDD IRAM2 
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0291 STD ,X«-+ 

0292 LDD IRAM3 

0293 STD ,X++ 

0291 LDD IRANI 

0295 STD ,X++ 

0296 LDD IRAM5 

0297 STD f X++ 

029'ci LDD IRAH6 

0299 STD ,X++ 

0300 LDD IRAM7 

0301 STD ,X++ 

0302 LDD IRAM8 

0303 STD ,X++ 

0301 LDD IKAM9 

0305 STD 

0306 LDD IRAM10 

0307 STD > X++ 

0300 CMPX t*SCE6 {HIGHEST ADDRESS Of' DATA STACK 

03 09 E-'HS LOOF'X 

0310 STX TEMF'X 

0311 BRA DONE 

0312 LGDF'X LDX #tS12E {BOTTOM ADDRESS OF DATA STACK 

0313 STX TEMPX 
0311 LDD #*00 

0315 STD IT DP 

0316 DONE RTI 

0317 END 


c.- 


jf'.* t 


QUALITY 
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00 01 
0 002 
0003 
0001 
0 0 05 
C0U6 
0 002 
00 08 

0009 

0010 
0011 
0012 
0013 
0011 
DO IS 
0016 
0 017 
O' IV 
it ( 1 V 

oo:o 

c tf.'i 
0 022 
0 023 
0 021 
0025 
0 026 
0 0 27 
0 0 28 
0 0 29 
00 30 
0031 
0 032 
0 033 
0 0 31 
0 035 
0 036 
0 037 

0038 

0039 
0010 
0011 
0 012 
0013 
0011 
0 015 
0016 

0017 

0018 
0019 

0050 

0051 

0052 

0053 
0 051 
0 055 
0 056 
0 057 
0 05B 


C SUBROUTINE SEARCH 

C 

C 

SUBROUTINE SEARCH < LOS, JK* MASK) 

* 

COMMON BLOCK >i»ixx»ixiiimxti»«*>!ii,i 
x 

INCLUDE 'COMMON. SA' 

« 

iiiixxxKixxiiixixxixxuixiixxiuiiixxxxixiimiiiixxiixixxnxxix, '; i.t--’ • . - < 

> 

C SEARCH FROM LOW TO HIGH FREW. (SIGNAL MERE OFTEN LOW > 

x 

END = S1GMIN 

x 

C COUNTS ( Kr,i:V!. / r-LL) BELOW moving BOUNDS, 

C CI.'inlEST BAiir COUNT ( KBNDG) AND INDEX ( IBND ) 

>: 

I'BL- (I 
KBLL = 0 
KBNDG = (l 
IBM) = 3 

DO 662 IE: = 1. , IN 
KE: = 0 

DO 661 1,10 

661 IF (FREQ(J).LT, END ) KE = KE+1 
KE-.ND n KB - KBLL 

EiND = END ♦ HGATE 
IF (KBLL .EG , 10) GO TO 10 
KBLL = KBL 
ICBL = KE 

IF ( IE: ,LT. 3 > GO TO 662 

IF ( KBND .LT . KE'.NDG ) GO TO 662 

IBND = IB 

KBNDG = KBND 

662 CONTINUE 

10 IF (KBNDG .G£. 3) GO TO 661 

x 

C SIGNAL NOT FOUND * INCREMENT NOISE COUNT 

x 

LOS = LOS +1 

IF (LOS . GT . 100 ) GOTO 1111 
IF (LOS .EQ. 1) TSWCH2= TIMEU) 

C 

C GET NEXT FIVE RAU DATA POINTS 

x 

RETURN 

C 

C 

C FOUND SIGNAL * SET GATE , NOTE LEADING 

C EDGE SWITCH TIME AND DWELL. 

C CONDENSE THE DATA POINT , AND PROCEED TO DECOMMUTATE. 

x 

661 CONTINUE 
LOSN = LOS 
LOS = 0 

SIGLEV = SIDMIN * ( IBND-2 > xHGATE 


PACE 

0059 
0 060 
0061 
0 <>62 
0 C 63 
006*1 
0065 
1)066 
0 067 
0 06B 

0069 

0070 
0 071 
0 072 
0073 
007 ^ 

0075 

0076 

0077 
0 D7B 
0079 
01)30 
0 0(31 
00(32 
0 0 83 

o ora-*? 

0085 
0 086 
0 087 
008(3 
0 089 
0 0 9(1 
0 091 

0092 

0093 
0 0?*? 
0 0 95 
0096 
0 0 97 
0 (198 


■ • ?»♦ 
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i 

■ 

TSUCH1 * TSHTCH 

IF ( TIME ( 1 ) .LT. TSHTCH > GOTO AA 
T SWTCH= TIME ( 1 > 

49 DWELL = (TSHTCH - TSWCH1 > 

C 

C CONDENSER OUTPUT 

■ 

IF ( NSUM .EO. 0> GO TO 2665 
IF ( JK .EO. Ill GOTO A889 
7017 IF ( TSWCH1 .LE. COND( 1 , JK) )GO TO 3006 
0889 JK=JK+1 

COND(l.JK) * TSWCH1 
COND ( 2 > JK > = DWELL 
CONDO, JK) = FSIJM/NSUM 
IFCJK .GE. 900 )GOTO 2222 
C 

C DECOMMUTATE 

l 

IF (JK .GT. l)GO TO 3001 
WRITE (100,3005) 

3005 FORMAT< '****** COND. MATRIX ******',/) 

3001 CONTINUE 

WRITE ( 1 0 0 , 3 0 0 0 ) JK , COND < 1 , JK ) , COND ( 2 , JK ) , COND < 3 , JK ) 

3000 FORMAT ( ' COND ( ' , 13 , ' ) = ' , F12. 1 , F8 . 1 ,F1Q . 9 , 5X ) 

C 

GO TO 2665 
1111 MASK *= 1 
RETURN 

2222 MASK = 2 
RETURN 

3006 HRITE(IQUT,3007) JK 

3007 FORMAT ( ' *** WARNING *** SWITCH TIME DID NOT INCREASE AT', 

& ' JK = ' ,13) 

2665 FSUM = 0. 

NSUM = 0 
C 

RETURN 

END 
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0 0(11 OPT L,REL 

0002 OPT LLE-80 

0003 NAM SETUP 
0 ( '0A IDNT SETUP 
DC 05 XDEF SETUP 
00 0 6 ■ 

0007 THIS XS THE MAIN PAPER TAPE SETUP PROGRAM ********** 

00 06 * 

0 0(19 _'SCT 
0 010 IFLAG RME: 2 
0011 BYTE10 RUE! 1 
0 012 BYTE9 RME: 1 
0013 BYTES RMB 1 
0010 BYTE7 RMB 1 

0015 BYTE 6 RMB 1 

0016 BYTES RMB 1 

0017 BYTEA RMB 1 
0 0 10 6YTE3 RMB 1 

0019 BYTE2 RMB 1 

0020 BYTE1 RMB 1 

0021 BYTE11 RMB 1 
1)0 22 BYTE12 RME: 1 
0023 BYTE 13 RMB 1 
0Q2A BYTE1A RMB 1 

0025 6YTE15 RMB 1 

0026 BYTE16 RMB 1 

0027 BYTE 17 RMB 1 
0 023 BYTE113 RMB 1 

0 029 BYTE 19 RMB 1 

0030 BYTE20 RMB 1 
0 031 IRAM1 RME: 2 

0032 IRAM2 RMB 2 
1)033 IRAM3 RMB 2 
003A IRAMA RMB 2 

0035 XRAM5 RMB 2 

0036 IRAM6 RMB 2 

0037 IRAM7 RMB 2 

0033 XRAMfl RMB 2 
0039 IRAM9 RMB 2 
01! AO IRAN 10 RMB 2 
DO Ml ITOP RMB 2 
0002 IBOT RMB 2 

00 A3 IE AT A RMB 3000 JIRAM ARE STACKED INTO THE IDATA ARRY TO EE PROCESSED 

0 0 A A ************************ 

OO^S * 

00A6 * 

0 0A7 * PROGRAM FOLLOWS 
0 0 AS * 

00A9 PSCT 

0050 SETUP LDD #*0000 

0051 ST A BYTE1 D.P. FLAG 

0052 ST A EYTE2 TEMP, STORAGE FOR DATA 

0053 STA 6YTE3 MULTIPLIER 

0 05A STA BYTEA X REGISTER 

0 055 STA BY1E5 

0056 STA BYTE6 1000 FLAG 

(1057 STA BYTE7 DELETE FLAG 

0050 STA BYTES STACK COUNTER 



PAGE 

002 

SETUP 

.sa:i umet-i 

0059 

STA 

BYTE9 

ENTRY COUNTER 

0060 

STA 

BYTE 11) 


0061 

STA 

BYTE IQ 


0062 

STD 

IRAMl 

STORAGE FOR INTEGER 

0043 

STD 

IRAM2 

STORAGE FOR FRACTION 

0064 

STD 

IRAM3 


0065 

STD 

IRAM4 


0 044 

STD 

IRAM5 


0 0 47 

STD 

IFiAMS 


0 06E) 

STD 

IFLAG 


0 0 69 

LDA 

#*04 


007(1 

STA 

>*E0 17 


0071 

LDD 

#*8900 


0072 

STD 

IRAM6 


0073 

LDD 

#*5878 

{ADDRESS OF TAPE! 

0 074 

STD 

>*DFFE 

{IRQ VECTOR JUMP 

0075 

LDA 

♦ *07 


0 0 76 

STA 

>*ED16 


0 077 

ANDCC **EF 


0 07B 

RTS 



0079 

END 




0 080 
0081 


15 DEC 1982 


► 




PAGE 001 STOPER .3A! 1 UMET-1 15 DEC 19B2 

0001 OPT L,REL 

0002 OPT LLE=B0 

0003 NAM STOPER 
0000 IDNT STOPER 

0005 XDEF STOPER 

0006 i 

000? * THIS PROGRAM LOOKS TO SEE IF THE 'S' KEY OF THE TERMINIAL 

0 0 OB * HAS BEEN HIT. IF SO THIS PROGRAM SET ISTPER TO 1. THEN ADVANCE 

0009 * LOOKS AT THIS FLAG* AND IF SET CAUSES THE PROGRAM TO STOP. 

0010 * 

0011 CSCT 

0012 IFLAG RMB 2 

0013 BYTE10 RMB 1 
001*1 BYTE? RMB 1 

0015 BYTE8 RMB 1 

0016 BYTE7 RMB 1 

01)17 BYTE 6 RMB 1 

0 0113 BYTES RMB 1 

0019 BYTE* RME: 1 

0020 BYTE3 RMB 1 

0 07.1 BYTE2 RME: l 
0 0 22 BYTEl RME: 1 
0023 BYTE 11 RMB 1 
0 02*1 BYTE12 RME: 1 
l' 025 E:YTE13 RMB 1 

0026 BYTCM RME; 1 

0027 ISTPER RMB 2 
0 026 TEMPX RME: 2 

0 029 INTMSK RME: 2 
0 030 IRAM1 RME: 2 
0 031 IRAM2 RME: 2 
0032 IRAM3 RMB 2 
0 0 33 IRAK*! RMB 2 
0 03-1 IRAM5 RME: 2 
0035 IRAM6 RMB 2 
0 036 IRAM7 RME: 2 
0 0 37 IRAM8 RME: 2 
003S IRAM9 RMB 2 
0039 IRAM10 RMB 2 
0 0*10 ITQP RMB 2 
0 0*11 IBOT RMB 2 

00*12 IDATA RMB 1500 JIRAM ARE STACKED INTO THE IDATA ARRY TO BE PROCESSED 

00*13 miMixMimiiiixiKxixiii 

0 0 * 1*1 * 

00*15 * 

0 0*16 * PROGRAM FOLLOWS 
0 0*17 * 

0 0*1S PSCT 

00*19 STOPER LDD #*0000 
0 050 STD ISTPER 

0051 LDA >*EC1A 

0052 LSRA 

0 0 53 E:CC NDCHAR ;IF FLAG NOT SET THEN NO CHAR 

0 0 5*1 LDA >*EC15 ; LOAD THE DATA FROM THE ACIA 

0055 CMPA #t53 ; ASCII LETTER S 

0056 Br.'i: MUCH A R ;IF NOT EQUAL TO S RETURN 

0 057 LDD t'iOOOl fTO SET THE FLAG 

005B STD ISTPER ; FLAG IS NOW SET 
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0 0G9 rtGCHAR RTS 
on<‘> END 
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linni OPT L.REL 
0 0 0;r OPT LLE=BI) 
no 03 MAh TAPE1 
0 0 (1 A IDNT TAPE1 

0005 * 

0006 ********** THIS IS THE MAIN PAPER TAPE PROGRAM ********** 

0007 * DATA PROM THE TAPE READER IS VALID DN THE PIA 

0008 * TO CAUSE AN INTERRUP. THIS PROGRAM READS THE DATA 

0009 * INTO BYTES WHERE IT IS FORMATTED INTO INTERGERS 

0010 * AND STORED IN IRAMS, WHERE FORTRAN SUB 'FORM' RE-FORMATS 

0011 * THE DATA INTO REAL NUMBERS AND STORES THEN IN THE CAL. 

0012 * TABLE. 

0013 * 

001A CSCT 

0 015 IFLAG RME: 2 

0016 BYTE10 RMB 1 

0017 BYTE9 RMB 1 

0018 BYTE8 RMB 1 

0019 BYTE7 RMB 1 

0020 BYTE 6 RMB 1 

0021 BYTES RMB 1 

0022 BYTEA RMB 1 

0023 BYTE3 RMB 1 
0Q2A BYTE2 RME: l 

0025 BYTE1 RMB 1 

0026 BYTE11 RMB 1 

0027 BYTE12 RMB 1 

0028 BYTE13 RMB 1 

0029 BYTE 1 A RMB 1 

0030 BYTE! 5 RMB 1 

0031 BYTE16 RMB 1 
1)032 BYTE17 RMB 1 
0033 BYTE10 RMB 1 
0 03 A BYTE19 RMB 1 
0035 BYTE20 RMB 1 
0 036 IRAM1 RME: 2 

0037 IRAM2 RMB 2 

0038 IRAM3 RMB 2 

0039 IRAMA RMB 2 
00 A0 IRAMS RMB 2 
00A1 IRAM6 RMB 2 
00A2 IRAM7 RMB 2 
0 0 A3 IRAM8 RMB 2 
OOAA IRAM9 RMB 2 

0 0 AS IRAM1Q RME: 2 
0 0 A6 ITOP RMB 2 
OOA7 IBOT RMB 2 

0 (I A El IDATA RMB 3000 fIRAM ARE STACKED INTO THE IDATA ARRY TO BE PROCESSED 
00A9 ************************ 

0 050 * 

0051 * 

0052 * PROGRAM FOLLOWS 
0 053 * 

005A F'SCT 

0055 STY IRAMA 

0056 LDY IRAM6 

0057 LDA >*E0 1 A 

0058 LDA >tE0 15 LOAD DATA INTO ACC. 
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0059 STA BYTE2 

0060 LDB BYTE7 THREE CONSECUTIVE DELETES? 

0061 CURE: #*05 
0 062 BEO SF’AC 
0063 CMPA **7F 
DG6A BEQ RED 
0065 LDB #*00 

0 066 STE: BYTE7 RESET DELETE FLAG 

0067 ERA OUT 
0 068 RED INC E:YTE7 

0069 OUT STA EYTE2 

0070 STY IRAH6 

0071 LDY IRAMA 

0072 RTI 

0073 SPAC CMPA **20 
0G7A BNE NSPAC 
0075 LDB *106 

0 076 STE'- E'-YTEB COUNTER SET TO SIX 

0077 NSPAC CMPA *»2E 
0 078 E'-NE NPER 
0079 LDB #*01 

0 0 SO STE'- BYTE1 SET D.P. FLAG 

0 081 E-'RA OUT 

00e2 NPER CMPA **30 

0083 BLO OUT NUMBER? 

0 08 A CMPA #*39 

0085 ELS MASK 

0086 ERA OUT 

0087 MASK ANDA **0F 

0088 5TA ,-Y STORE ON STACK 

0089 LDB BYTES 
0 090 DECE'- 
0091 STB BYTE8 

0 092 LDA E'-YTEIB 120 ENTRIES? 

0093 CMPA #120 

009A BLQ N2ER ACCEPTS ZEROS AFTER 160 ENTRIES. 

0095 LDA BYTE2 

0096 ANDA *»0F 

0097 CMPA #100 
0 098 BNE NZER 

0099 LDB BYTE8 

0100 CMPB **05 FIRST DIGIT? ( ACCEPTING ZEROS) 

0101 BEQ ZER 

0102 NZER LDB BYTE1 

0103 CMPB #*01 CHECK D.P. FLAG 
010A BED RES 

0105 BRA OUT 

0106 RES LDB #*00 

0107 STB BYTE1 RESET D.F. FLAG 

0108 ZER LDD #*0000 

0109 STD IRAM1 INITIALIZE TO ZERO 

0110 STD IRA M2 

0111 LDB ( Y+ . X=D ACCUMULATOR 

0112 INC BYTES 

0113 STD IRAM2 
G11A LDB »*01 

0115 MULT STB BYTE 3 MULTERPLIER = X 

0116 LDA BYTES 
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0117 CMPA **05 LAST DIGIT? 

0110 BED LAST 

0119 CMPA #*0A FINISHED WITH ENTRY? 

0120 BED FINI 

0121 CMPA **02 1000 'S PLACE? 

0122 6NE THOU 

0123 LDA BYTE8 

0121 INC BYTEA SET 1000 'S FLAG 

0125 THOU LDA ,Y+ 

0126 INC BYTES 

0127 MUL MULTIPLY BY POWER OF TEN 

0123 ADDD IRAM1 

0129 STD IRANI 

0130 LDA BYTE3 

0131 LDP #10 

0132 MUL INCREMENT MULTIPLIER 

0133 BRA MULT 
0131 LAST LDA BYTE6 

0135 CMPA #301 

0136 BNE THOU 

(1137 DEC BYTE6 RESET 1000 'S FLAG 

0130 LDA ,Y-- 

0139 INC BYTES 

OHO LDB # Ml A TEN 

0111 MUL TIMES BY TEN 

0112 LDA **A1 100 

0113 MUL TIMES BY 100 

0111 ADDD IRAM1 

0115 STD IRAM1 

0116, FINI LDD **0 0 01 SET FLAG 

0117 STD IFLAG 

0 1 18 INC BYTE18 

0119 LDA #*0 A 

0150 SI A BYTES RESET COUNTER 

0151 JMP OUT 

0152 END 



PAGE 001 TRACK .SAS1 


UMET-1 


15 DEC 19B2 


0001 C TRACK SUBROUTINE 

0002 SUBROUTINE TRACK ( LOS ,JK , MASK ) 

0003 X 

00 00 XXXXXXXXXXXXXXXXXXXXXMXXXXXXXX COMMON BLOCK XXXXXXXXXKXBXKXXKKXXXXKXXXXXXXXK 

0005 ■ 

0006 INCLUDE ' COMMON. SA' 

0007 x 

0 0 OS XXXBXXXXXXXXXXXXXXXKXXXXXXXXXXKXXXXXXXXXXXXXKXXXXXXEXKKXXBXXXXKXKXXXXXXKXXX 

0009 c 

0010 C SET GATE BOUNDS 

0011 C COUNT SIGNAL POINTS IN GATE 

0012 x 

0013 MASK«0 

00 11 BURR a SIGLEV + HGATE 

0015 IF(BUPR.CT.SIGHAX ) BUPR = SIGMAX 

0016 BLUR a SIGLEV - HGATE 

0 017 IF (BLUR ,LT .SIGMIN ) BLUR = SIGMIN 

0016 x 

0019 C MEMORY TO STABILIZE CONDENSED SIGNAL 

0020 x 

0021 NGATE a 1 

0022 SUMGTE « SIGLEV 
0 023 x 

0021 C COUNT POINTS IN GATE 

0025 x 

0026 DO 671 J= 1,10 

0 027 IF < FRED ( J ) .GT. BUPR .OR. FREG(J) ,LT. BLWR) GOTO 671 

0028 SUMGTE = SUMGTE ♦ FREG(J) 

0029 NGATE = NGATE+1 

0030 IF ( NGATE .GT. 6) GO TO 672 

0031 671 CONTINUE 

0032 x 
0 0 33 C 
0031 x 
0035 
0 036 
0 037 
0 033 
0039 

0010 x 

0011 C 

0012 x 


0 013 

672 

FSUM = FSUM 4- SUMGTE/NGATE 


0 011 


NSUM = NSUM +1 


0015 


SIGLEV = (SIGLEV + SUMGTE / 

NGATE) x 0.5 

0016 


RETURN 


0 017 

C 



0018 

83 

CONTINUE 


0 019 

C 



0050 

C 

LOST SIGNAL NEVER FOUND 

IT IN SEARCH 

0051 

C 



0052 


MASK=1 


0 053 


RETURN 


0051 

C 



0055 

85 

CONTINUE 


0 056 

X 



0 057 

C 

JK > 1000 (COND DIMENSION) 

0 058 

X 




IF LESS THAN THO (EXCLUDING SIGLEV) IN GATE, LOST SIGNAL 

IF ( NGATE .GT. 2 ) GO TO 672 
CALL SEARCH < LOS, JK, MASK) 

IF (MASK .EG. 1) GOTO S3 
IF (MASK ,EQ. 2) GOTO B5 • 

RETURN 

HAVE SIGNAL # INCREMENT FOR MEAN AND ADJUST GATE 


PAGE 

0059 

0060 
0061 
0062 
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MASK=2 

RETURN 

END 


OF 


PAGE 

001 

ADIR .SAJI UMET-1 15 DEC 1982 

0001 

CADIK 

FUNCTION CALLED BY WINDS 

0 01)2 

C 



0 003 



FUNCTION ADIR ( U « V ) 

00114 

C 



0 0 05 

c 

THIS SUBROUTINE HILL COMPUTE THE DIRECTION FROM WHICH THE WIND IS BLQWIN 

0 006 

c 


THIS WILL NEED DIMENSION IFF ACTUAL ARGUMENTS ARE SUBSCRIPTED 

00 07 

c 



0 00B 



DUMMY=V/U 

0 0 09 


60 

IF <U)61 ,62,63 

0010 


61 

ADIR = 90. - 57.2958'* ATAN( DUMMY) 

0011 



GO TO 64 

0 01?. 


63 

ADIR = 27 0. - 57.2958* .AT AN (DUMMY) 

0013 



GD TO 64 

0 014 


62 

IF <U) 65,66,67 

0 015 


65 

ADIR = 360. 

0016 



GO TO 64 

(1017 


66 

ADIR = 999. 

0018 



GO TO 64 

0 Q19 


67 

ADIR -• 180. 

0 0 20 


64 

RETUR ■ 

0021 



END 
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00 1)1 
00 02 
0 003 

ooih 

0 0 05 
0 0 06 
0 0 07 
0 008 
0 0119 
0010 


C FUNCTION to take hod of real • 
FUNCTION AHOD<A,EO 

«* 

** 

DUMMY=A/E 

IDUM=DUMhY 

DUHMY2=TDUM 

AMOt)= ( DUMHY-DUrtMYZ) ■£ 

RETURN 

END 


F'AGE 001 


alogio .sa:i 


UMET-1 


0 0 01 C 
1)0 02 
0003 « 
0 0 0 A * 
0 0 OS 
0006 
0 0 07 


FUNCTION TO TAKE BASE 10 LOG OF A NUMBER 
FUNCTION ALOGIO ( A ) 


ALOGl 0=( ALQG ( A ) )/(ALOG(10.) > 

RETURN 

END 
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FLOAT 


SA!1 


UMET-1 


15 DEC 1902 


0001 C FUNCTION TO TURN INTEGER TP REAL NUMBER 

0002 * 

0 0 03 FUNCTION FLOAT <I) 

0 00 ** « 

0005 DUMMY=I 

0006 FLOAT*DUMMT 

0007 RETURN 
0000 END 


V 


PAGE 

0 001 

11 n 0 2 

0003 
(10 0 4 
0005 
0 0 06 
00 07 
0 0 DO 
0 0 0? 
0 010 
0 011 

0012 

0013 

0014 
0 015 
0016 
0017 
OflB 

0019 

0020 
0021 
0022 
0 023 
0 024 
0 025 
0026 
0 027 
0 028 

0029 

0030 
0 031 
0 032 
00 33 
0 034 

0035 

0036 

0037 

0038 
0 0 39 
0 040 

0041 

0042 
0 043 
0 0 44 
0 045 
0 046 
0 047 
0 04B 
0 049 
0050 
0 051 
0 052 
0053 
0 054 
0 055 
0 056 
0 057 
0 058 


v «- 

OF POOH 



001 i.o .SAtl UHET-l 15 DEC 1982 

C ROUTINE FOR REDUCTION OF ONE MINUTE DATA 

C 

SUBROUTINE RRD 

KIIIKOIlIIIHlXIOiafllllHIlIIItlKIlIIIS (IIIIUIIXIIIXIUIIIIIIIIUIIIIIH 

■ 

INCLUDE ' PRDCOM. SA ' 

■ 

iixoaiiiiiiiiiiiaiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiliiiiiiitiimiiiiin,; 

DIMENSION IIERR(O) , OLD < 5 > , IERRM ( 488 > , AliKME:(36> { TE5T IERRM4AKKHB 
DIMENSION EPR(llO) , ETP ( 11 0 > , EPT < 11 0 > , NLBL ( 6 > { NLBLF0R TEST 
DIMENSION PU10>,P3<110),TEMP<11U),DLBL<2> { DLBL FOR TEST 

C 

DATA BI7U.07 
DATA AKKME:/ 

8 1000.0,900 .0,650 .0,800.0,700.0,600.0,500 . 0 , 40 0 . 0 ,25U . 0 , 30 0 . 0 , 

& 250. U, 20 0. 0,150. 0,125. 0,1 0 0. 0,80. 0,70. 0,60. 0,50. 0,40. 0,35.0 , 

8 30.0,23.0,20.0,17.5,15.0,12.5,10.0,8.0,7.0,6.0,5.0,4.0,3.5, 

8 3.0,1.07 

C CONSTANTS USED IN PROGRAM 

C 

DATA ZERO/D. 07 , I2ER0 70 7 , ONE/1. 07, IPNE/1/, TEN/10. 0/ } TESTING 

DATA ISEVEN/7/, SEVEN/7. 07, ZNINE/-99 . 997 ,11807160 .0/ '.TESTING 
DATA ZNN7-999 . 997 , TWO 7 2 . 07 , POINTS/ 0 . 57 , ZTENP27 1 0 . 27 {TESTING 
DATA 299/99, 07, Z9BP9/98. 97, Z56/56. 07, Zll 3/113. 07, Z57/57. 2957797 
DATA POINT 1 7 0 , 1 7 .Z99P9/99 • 97 , Z9P9X5/9 . 99999/ , Z99P99/99 .997 
DATA Z999F'?/9?9 . 97 , ZNNN7-999 . 9997 , ZP9966/ . 9966267 , Z4B00 0/4B0 0 U . 07 
DATA ZBP9E/8 . 902E6/ , Z294P/294 . 0 / , Z4P2E/4 . 3E-3/ , ZP6 117.611/ 

DATA Z1P7E/1. 74533E-2/,Zl4P6/14. 644677, Z3P9E73 . 9453635E-47 
DATA Z7F'BE/7 . B96B8E-4/ , Z20P720 . 07 , Z273F" 17273 . 157 , Z233F'l/233 ,157 
DATA Z3P29E/3.298588E-37 .Z1P07E/1 . 0770 IE-3/ .Z5P89E/5 .8y986E-57 
DATA RATE70.07 
C 

XCXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXKKXXXKXXXXXXKXKXXXXXXXKXXMXXXXXX 

X 

X 

100 FORMAT ( IX, 2A5, 217, 5F6. 1,12, 2F5 . 1 . F7. 1 , A6> 

101 FORMAT (F6.1,I6,F6.1»FB.5,F7.1,F6.2,F7.1,F7.4,F6.1,F7.1,F7.2,2F6.1, 

8 F7.4.4F6.1 .F6.1.10X) 

1010 FORMAT <F6.1,2X,F6.0,2X,F7.1,2X,F7.4,2X,F6.1»2X,F7.1,2X,F7.2,2X,F6.1, 


& 2X,F6 

. 1 , 2X , 

F7.4.2X, 

4<F6.1,2X>) 




109 FORMAT ( ' 

0TIME 

ALT 

PRESS 

/ 

t 



8 'LOG 

TEMP 

PTEMP 

VTEMF 

HUMTY DEHFT 

SPECIF 

/ 

f 

8 ' SPD 

DI.R 

NS 

EW' , 




8 / , ' MIN 

GP MT 

MB 

PRESS 

DEG K DEG K 

/ 

f 


8 'DEG K 

FRCNT 

DEG H 

HUMTY 

MPS DEG 

MPS 

MPS' ,7) 


110- F0RMAT<SX, 'SURFACE CONDITIONS',/, 

8 7X, 'PRESS', F8.1,' MB' »DX» 'BASE CAL = '.F5.1,' C AT ',F5.1,' ORD', 

8 / , 7X , ' TEMF' ' , F? . 1 , ' K' ,?X, 'HUMIDITY = '.F5.1,' X AT ',F5.1,' ORD', 

8 /,7X, 'HUMY' ,F9.1, ' X ' , 77 , 120 C ' * ' > > 

120 FORM AT ('1STATION', 14, 4X, -LAUNCH DATE ' ,13 , ' - ' , 12, , 12 , 4X , 

8 'LAUNCH TIME', 12,'!', 12,' {'.F3.1,' GMT SONDE ID ' ,15,7,7) 

152 FORMAT ( 2X ,13 , IX ,314 »62X ) 

153 FORMAT < 217 , 15 , F7 . 1 , 3F5 . 0 , F4 . 0 , 35X > 

210 FORMAT (2A5, 16, A5, 'ECC ' , A6 ,FB . 1 ,4F6 . 1 , 3F5. 1 , F5. 3 , F5 . 1 , F7 , 1 , F5 . 1 , 

8 F6.1,FS.1,F7.2,F6.3»6X) 

1 0 0 0 FORMAT < IX , A6 , A4 , IX , A6 , A5 , 2X , 2F6 . 1 , F6 . 2 , 3F5 . 1 , F6 . 2 , F5. 3 , 5X , A6 ) 

400(1 FQRMATt/, 'xxx RECORDED INSTRUMENT HUMIDITIES xxx', 7, 


PACE 

002 

F'RD .SA51 UMET-1 

15 DEC 1982 

0 059 

* 

'*** LESS THAN 20 FRUNT NOT LISTED ***' ) 



0060 

5000 

FORMAT < 7 , ' *■* GMG IN LIMITING ANGLES 



0 061 

& 

'**« DURING PART OF OBSERVATION »»» 

:' > 


0062 

6011 

FORMAT (5F12.5»A10,2X, 12, A29 > 29X > 



0 063 

8150 

FGRMATC/, '*«**«* ORIGINATE GREATER THAN 100.0 

**»***'/ 


0064 

l 

F5.0,F7,1,2F4.1,F7.2,F6.2.2X) 



0065 

8160 

FOFlMAT < / , ' *»*•** GMD TRACKING ERROR 

««■'/ 


0 066 

& 

F5 . 0 , F7 . 1 , 2F4 , 1 , F7 . 2 , F6 . 2 , 2X ) 



0 067 

9034 

FORMAT (' *** ' , A61 ) 



0066 

9036 

FORMATt ' + ' ,7lX,F10.4, ' miHiiux.ii' ) 



0 067 

9154 

FORMAT < / ) 



0070 

9264 

FORMAT ( /, 'm*« LAYER BELOW ' , F6 . 1 , ' MB HAS SUPER ADIABATIC 

LAPSE 

0071 

& 

, ' RATE OF ' , F5 . 1 , ' DEG/KM' > 



0 072 

9364 

FORMAT ( / * ' *** LEVEL BELOW ',F6.1,' MB *** 

POTENTIAL 


0073 

& 

'TEMPERATURE = ',F6.1,' DEG K *«* NOT INCREASING') 


0 074 

9464 

FORMAT (/ , '«■***» FDR THE ABOVE LAYERS OR 

LEVELS, CHECK 

TEMP 

0 075 

« 

'ORDINATE AND PRESSURE ENTRIES. «*****',/,/> 


0076 

C 




0 077 

C 




0070 

C 




0 079 

c 

READ RADIOSONDE CALIBRATION CARD 



0080 

G 




0031 


I0UT=102 



0 082 


HTMSL=HEIGHT 



0033 


CALTF'=30.Q 



0084 


RECRH=46. 0 



00S5 

C 




0086 

C 




0 0 87 

C 

SET INITIAL FLAGS 



0088 

C 




0089 


AA0=0. 00191617 



0090 


AA1=0 .0173393 



0 091 


AA2=“C . 2103E-04 



0092 


AA3=0 .851677E-07 



0093 


AA4=-0 . 181232E-09 



0094 


AA5*0 . 135529E-12 



0 095 


IH=0 



0 096 


IXT=0 



0097 


ITEMP=0 



0 0 98 


IERRF=0 



0099 


MIN=1 



0100 


KKKK= 1 



01(11 


ICALFL=1 



0102 


IHUMFL=1 



0103 

- 

IELVFL=Q 



0104 


IOZNFL*0 



0105 


CFNT~~. 3.16 



0106 


01*012 



0107 


Ci=OIC 



0108 


TBI=TBO 



0109 


PRESS=F'CAL «• .05 



0110 


IF(A1 .NE. 0) GO TO 555 



0111 


A0=0 



0112 


Al = l 



0113 


ICALFL^O 



0114 

555 

IOTME=-999 



0115 


IF < KOPT . EO . 0) ICALFL^O 



0 116 


NLBL (5) =' 6H' 





page: 

0117 

011s 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 
0121 
0132 
0 133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 
0 146 
0147 
0145 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 

0167 

0168 
016 ? 

0170 

0171 

0172 

0173 

0174 


OF POOR 


r. 

QUALITY 


0 03 PUD . SA ! 1 UMET-1 15 DEC 1962 

C KiiiiixiiximiiiKixx 

I=IZERO 
DO 50 J*l,7 
1 = 1+1 

50 IIERR { I >“=0 

C 

C COMPUTE CALIBRATION CONSTANTS FOR RADIOSONDE DATA 
C 

CALL TEMPCE (CALTP , IERRF , I , ITEMP ) 

CALL RL < RECRH « CALTF' > I . IDF ( IH > 

C 

C READ HEADER CARD 
C 

IFfNCDS .GE. 10BJNCDS = 108 

C »xt*»! PRDCOMMON ALLOWS ONLY 108 ONE MINUTE ENTRIES 

C xt«xi« WHERE COND PASSES UP TO 110 MINUTES OF DATA 

IZR=0 

IE:RST =NCDS- 1 
ITERM=NCDS-1 
DUHHY=PR<NCS+1) 

DUMMY = ONE 
C 

C READ DATA CARD 
C 

DO 577 1=1 .NCOS 

> 

* DATA IS PASSED FROM MET TO PRD IN THE VL ARRAY 

* 

TIMCI)=VLC1 ,I)/60 .0 
PR ( I J =VL ( 4 , i ) 

DT (I)=UL C 6 . 1) 

OF ( I ) =UL (7,1) 

AZ (I ) =VL (2 . I) 

EL ( I )=VL< 3 ,15 
577 CONTINUE 
C 

HGMDT=HEIGHT 

C 

C CHECK INPUT DATA FOR ERRORS 

C 

DO 40 1=1 i NCDS 
T(I)=ZERO 
TALP ( I ) =ZERQ 

C «xix:x;xx: 

DEWPT (I)=ZERQ 

IF < TIM(I) .LE. IOTME) IIERK<2)»1 
IF < I .GT. NCDS) IIERR<3>=1 
IOTME=TIM(I) 

IF ( I .Ed. 1) GO TO 10 

IF (EL (I) .GT. ZERO .AND. EL (I) .LT. SEVEN) IELVFL=1 
IF (AZ(I) . NE. ZERO .AND. ELCI) .GE. SEVEN) GO TO 10 
AZ < I ) =ZNINE 
EL<I)=ZNINE 
GO TO 14 

10 IF<IAZ .EQ. 0) GO TO 14 

IF ( AZ<I > . LE. Z180) 50 TO 12 

AZ(I)=AZ(I)-Z180 

GO TO 14 


FACE 001 PRD 


sa:i 


UMET-1 


15 DEC 1982 


0175 

0176 

0177 

0178 

0179 

0180 
0181 
0182 
0183 
0161 
0135 
0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 
0191 
0195 
!.: c .. 

0197 

0198 

0199 

0200 
0201 
11202 
U2Q3 
G 2()1 

o.ros 

020(j 

0207 
0 21MB 
0209 
ti2 'J 0 
0 21 I 
0212 
0213 
0211 

0215 

0216 

0217 

0218 

0219 

0220 
0221 
0 222 
0223 
0 221 

0225 

0226 
0 227 
0228 
0229 
0 230 

0231 

0232 


12 AZd)*AZd)+Z180 
11 IF <PR ( I ) . NE. ZERO) GO TO 15 
IXT=IXT+1 
GO TO 18 

15 IFCPRd) .LE. PRESS .AND. FR(I> .GT. F'Rd+l) ) GO TO 17 
OLD < 1 > *=PR ( I ) 

HERR - < 1 ) “ 1 
17 PRESS=F‘R < I ) 

TALP(I)=AL0G(PRESS)/2. 302585 ;2.3025B5=LN 10 

IFIIXT ,EQ. 0) GO TO 18 

IHI=I 

ILO=IHI-IXT-l 
DO 9189 JU=1,IXT 
K=JJ+ILO 
DUMMY- JJ 
DUMMY l=IHI-ILO 

TALF’ ( K ) =TALP ( ILO ) +DUHMY/DUMHY 1» ( TA_P Il-il V -T ALP ( ILO ) > 

9169 DUMMY = TALP(K) 

PR ( K > =POWCR ( 1 EN , 0 L-.-.f'. ( ) 

IVT-ll 

13 i: : -T .GE. NCOS-1 ) GO TO 36 

IFCDTd) ,EQ. ZERO. DR. DTd+l).E0. ZERO. OR. OKI+2) ,EQ. ZERO) GO TO 36 
DUMMY=DT (I)— DT <1+1 > 

DUMMYl=OT < I)-DT (1+2) 

D1=A£:S( DUMMY) 

D2=AE:S ( DUMMY1 ) 

IF <01 .GE. POINTS .AND. D1 .GE. D2*TWQ> IIERR(8)=1 
OLD <5 ) =TIM < 1+1 ) 

36 CONTINUE 
C 

C PRINT ERROR MESSAGES 

C 

DO 33 11=1,3 

IF (HERR (II) .EG. 0) GO TO 36 
IIERR (II)=0 
IF (II .GT.DGOTO 2221 
WRITEdDUT , 1115) 

1115 FORMAT ( ' DATA CARD 10 DOES NOT MATCH FLIGHT ID ***') 

2221 IF dl . GT , 2 ) GOTO 3331 
WRITE (IOUT, 2225) 

2225 FORMAT ( ' TIME NOT INCREASING - PROGRAM CONTINUES ***') 

3331 IF (II .GT. 3) GOTO 1111 
WRITEdDUT , 3335) 

3335 FORMAT ('TIME GREATER THAN 120 MIN - PROGRAM CONTINUES') 

1111 IF < II .GT. 1) GOTO 5551 

WRITE ( IOUT , 1115 ) OLD (II- 3 ) 

1115 FORMAT < 'PRESSURE NOT DECREASING - PRESSURE*' »F10.1> 

5551 IF (II .LT. 5) GOTO 38 

WRITE ( IQUT , 5555 > OLD <11-3 > 

5555 FORMAT ( 'TEMF' ORD FAILS DIFFERENCE TEST ** CHECK TEMP ORD AT ',F10. 

38 CONTINUE 
C 

DUMMY=1 0 0 

IF (DT (I) .GT. DUMMY .OR. OFd) .GT. DUMMY) 

& WRITEdDUT, 8150) TIM(I),PRd>, 

« DT(I),OFd),AZ(I>,EL(I) 

IF(AZ(I.) .GT. 360.0 .DR. EL(I) .GT. 90) 

8 . WRITEdDUT, 8160) TIM(I),PR(I), 





■yjAirrY, 
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0 233 
0231 

0235 

0236 
0 237 

0238 

0239 
02-10 
02-11 
02-12 
02-13 
02 - 1-1 
0215 
02-16 
02-17 
0218 
0219 

0250 

0251 

0252 

0253 
0251 
0 255 
0 256 

0257 

0258 

0259 
11260 
0261 
0262 
0 263 
0261 
0265 
0 266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 
0271 

0275 

0276 
0 277 
0 27B 
0279 
02SQ 
0281 
0282 
02B3 
0231 
0285 
0206 

0287 

0288 
0209 
0290 


* DT<I) ,OF(I),AZ(I),EL(I> 

10 CONTINUE 
C 
C 

C PROCESS DATA POINTS 
C 

DO 90 1=1, NCOS 

PE=ONE 

X=PR(I) 

J=I 

C 

C RADIOSONDE TEMPERATURE CONVERSION 

C 

a 

CALL TEMPCE ( CALTP , IERRF , J , ITEMP > 

C 

C RADIOSONDE RELATIVE HUMIDITY CONVERSION 

C 

a 

CALL RLlRECRH, CALTP, J, IDF, IH) 

C 

DUMMY=< 1 000 > /PR (I) 

DUMMY l=POW£R( DUMMY, .28571128) 

POTTP (I)=T(I) «DUMM Y 1 

KKXxxxxxxxxMKxxxxxxxxxxxxxxxxxxxKXXxxxxxxxaxKxxxxxxxxxxxxxxxxx 

C 

C COMPUTE ALTITUDE 

C 

IF II . CT . 1) GO TO 62 
DUMMY=PCAL/PR ( I ) 

HGP ( I) =HTM5L+Z11P6xAL0G ( DUMMY ) x( T ( I ) +SURT+CENT ) 

GO TO 11 

62 DUMMY =PRIM£P/PR < X ) 

DLOGP=ALOG 'DUMMY) 

HGP ( 1 ) =PRIMEH+Z11F6*DLGGP» (TV! I) +PRIMEV) 

11 FRIMEP=PR(I> 

PRIMEH=HGP(I) 

PR'IMEV=TV(I> 

IF ( OF ( I ) .ED. ZERO) OF ( I > =Z99P9 
IF (IDF .NE. 1) GO TO 83 
F(I)=BI 
DEHPT ( I >=EI 
83 CONTINUE 
C 

C CHECK LAPSE RATE AND POTENTIAL TEMPERATURE 

C 

EPR(T.)=ZNN 
ETP < I ) =ZNN 
EPT (I)=ZNN 

IF (DT (I) . ED . ZERO ) GO TO 90 
IF (I .EO. 1) GO TO 90 
DUMM Y=HGF C 1-1 ) -HGP ( I ) 

RATE=< (TCI-1 )-T(I) )a(TENax3) > /ABS ( DUMMY ) 

IF (RATE .LT, ZTENP2) GO TO 81 

ETP(I)=RATE 

EPR(I)=PR(I) 

81 IF (POTTP (I) . GT . POTTP (1-1 ) ) GO TO 90 

EF'T ( I > =FOTTP< I ) 
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0300 

0301 
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0304 

0305 

0306 

0307 

0308 

0309 

0310 
0 311 

0312 

0313 

i. , J ' 
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0 

0334 
0 335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345 
0 346 

0347 

0348 


omr-ira 

OF POOR QUAUTf 


006 PRD .SA:l UHET-1 15 DEC 1982 

EPRtl)-PR(I) 

c 

90 CONTINUE 
C 
C 

SURTK-SURT+CENT 

IF (IOZNFL.EQ . 0. AND. PR (NCOS > .LE.Z20P) CO TO 700 

SUMR=BI 

Q3T0T=DI 

700 ISN=A«OD(LANCH,100) 

WRITE < IOUT ,120) IOSTAT , IMONTH , IDAY , I YEAR , 1 1 , 12 , TS3 , IDSOND 
WRITE ( IOUT ,110) F'CAL , CAL. TP , RECTP , SURTK , CALRH , RECRH.SURH 
WRITE < IOUT, 109) 

IF < 5UMR , EU . £1) SUMR=Z9F9X5 } Z9P9XS-9 . 99999 

C 

C WINDS COMPUTATION 
C 

HAX=NCDS 
301 CONTINUE 

IF < PR Cl) .GT. AKKMfV . • LC 1 U 3L_ 

KKKK=KK. . ■ 

r... 1 1 ■ 

3. : '•• • . •••-[■. yrr P9» e, 99 , 9 

.? 

m <74 T = MTH 
SPIV ;• 

I, i '< f I ■ . V ■ ■ . I " 

'■■ ■ v. IiJ 1 t . r 

• > l.* v : *t • i’,.- i, : . ,x<‘. .■ 

!. 

i i i ■ . t - 

f r. . _ 

Ir.i ■ 1 

i. ill i j . r t . ; Ci * * L c i. - 
i'j 

L'Ii\ . ' " '"It 
;- i [i< 763 

; DIIMMY=-Z99P99 ;z < >9P99<=99.99 

IF < AZ (IM1 ) .EO. DUMMY .OR. AZ(IPl) .EH. DUMMY) GO TO 863 
763 ANG=(DIR<I)-Z180)*Z1P7E 

WN8=SPD(I)*ZC0S(ANG) J6809 CANT DO NEG # SO WRITE FUNCTION TO 
WEH=SPD(I>kZSIN(ANG) ; HANDLE IT 

GO TO 9663 

863 DIR tI)=Z999P9 ; Z999P9=999 . 9 

SPD<I)=Z999P9 
WNS=Z999P9 
WEW=Z999P9 

9663 Q«=<TV<I)/T<I)-ONE)/ZP611 
IF (F(I) .E0. Eil> 00=01 
P(I)=PR(I) 

TEMP(I)=T (D-Z273P1 
C 

C INTERPOLATE WIND VALUES 

C 



PAGE 

0319 

0350 

0351 

0352 

0353 
0351 

0355 

0356 

0357 
D358 
0 359 
0 360 

0361 

0362 

0363 

0361 

0365 

0366 

0367 

0368 

0369 

0370 

0371 

0372 

0373 
0371 
0 375 
( •'•V. 
0377 

H37 a 

0 379 

03a o 

0381 

0362 
0 383 
(.’361 


0 TBO 
N3f * 
039(1 
0391 
0 392 
0393 
0 391 
0 395 
0396 
0 397 
0398 
0 399 
010(1 
0101 
0102 
0103 
0101 

0105 

0106 


:. X viXlZ 13. 

OF POOR QUALITY 


007 PRD .SA:i UMET-1 15 DEC 19B2 

IFtHNS .NE.Z999P9 .AND. NEW .NE.Z999P9) GO TO 8863 
IF (I .ED. MAX .OR. I .ED. 2) GO TO 8863 
IF (AZ(IM2> .EQ. ZNINE > GO TO 8863 
ANG= ( DIR (IM1 )-Z180)*ZlF’7E 
HNS88“SPD < IM1 > «ZCOS ( ANG > 

WEW88=SF’D ( IMl > *ZSIN ( ANG > 

ANG— CDIRdPl )-Z180 )*Z1P7E 
HNS99=SPD(IP1 )*ZCDS(ANG> 

WEW99*SPD (IP1 > «ZSIN ( ANG > 

HNS=WNS88-( (WNS88-WNS99)/TW0) 

M£H=WEWS8-( (WEWB8-WEW99 > /TWO > 

8863 IF<I .GT. 1> GO TO 610 . 

WEWLST=WEW 

WNSLST=WNS 

C 

C INTERPOLATE STANDARD MET ALTITUDES 

C 

610 IF (PR(I) .GE. AKKME(KKKK)) GO TO 9963 
DUHHY=F’F: (IMl > 

DUMM1=PR(I> 

D(JHM2=AKKHE ( KKKK ) 

A= ( ALOG1 0 < DUMMY > -ALOGIO ( DUMM3 ) * 

& «<ALOG10 (DUMMY) -ALOGIO i DUfir'. 1 . ’> > 

C=A/B 

AA99=TIM ( Tri 1 > -C* ( TTM < I ) -TIM ( IM1 ) ) 

E:F7'- -HC.F' ( IMl H C* < HGP (I > -HGP ( IM1 ) ) 

CC99=EI 
DO 99=81 
EE99=BI 
RR99=EI 
8662 CONTINUE 

FF99=AKKME= (KKKK > 

GG99=T (IM1 ) +C* (T(I)-T (IMl ) ) 

HH?9=FCIM1 ) +C* ( F < I)— F ( IMl > ) 

ori99=DEWF-i <imi)+c> of (■•rid- 

IF ( F < j i ■ L > .(T. W .AND. *• ( * ) . NE. ED GO TU EL61 

rnr; ru 

C -- f -P99=TALF’ ( IMl >+C* < TALP ( I ) -TALP ( IMl ) ) 

D099=.k:i-' TF’ ( IMl ) +C* (POTTP ( I ) -PQTTF’ ( IMl ) ) 

SS99=Z999P9 

TT?9=Z999P9 

UU99=Z999P9 

U979=Z999P9 

IF (I .ED. MAX .OR. I .ED. 2) GO TO 6663 
IF (I .ED. 1 .AND. WNS .NE.Z999P9) GO TO B66 
IF ( AZ (IM2 ) .EQ. ZNINE .OR. AZ(IMl) .ED. ZNINE .OR. 

& AZ(D .ED. ZNINE .OR. AZ(IPl) .ED. ZNINE) GO TO 6663 

866 ANG=(DIR(IM1)-Z1B0)*Z1P7E 
HNS99=SPD(IM1)«ZC0S(ANG) 

WEW99=SPD ( IMl ) *ZSIN ( ANG) 

UU99=WNS99+C* ( WN5-WNS99 ) 

V U99=WEW9?«-C* ( WEW-WEW99 ) 

DUMMY=UU99»VV99+UU99*UU99 
SS99=SDRT< DUMMY) 

DUMMY=UV99/UU99 
TT?9=ATAN ( DUMMY >*Z57 

IF (UV99 .LT.ZERO .AND. UU99 . G T .ZERO) TT99=TT99+Z180 
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0-107 IF<VV99 .CT.ZERO .AND. UU99 . GT .ZERO) TT99=TT99+Z1800 

0-108 IF ( VV99 .GT .ZERO .AND. UU99 .LT.ZERO) TT99=TT9?+<2*Zie0) 

0-109 6643 WW99=TV<IM1 >+C*<T'.'<I)-TV<IMl)> 

0410 XX9?=<WW99/GG99~ONE>/ZP6il 

0411 XX99=XX99+C* ( 0Q-XX99) 

0412 IF (HH99 .EQ. 81) XX99«BI 

0413 Vi‘99=Z£R0 

0414 IF (I .GT. 2) GO TO 600 

0415 IF (WEWLST .EQ.Z999P9 ,OR. WNSLST .EU.Z999P9) GO TO 600 

0416 IF (HEW . EQ . Z999P9 .OR. HNS .E0.Z999P9) GO TO 600 

0417 UU99=WNSLST+C* ( WNS-WNSLST) 

0418 VU99=HEHLST*C-* ( HEW-WEHUST > 

0419 DUf1NY=VV?9*VV99-HJU99*UU9? 

0420 SS99=SQRT<OUMMY> 

0121 DUM«Y=VV99/UU99 

0422 TT99=ATAN ( DUMMY )«Z57 

0423 IF ( VV99 .LT.ZERO .AND. UU99 . GT .ZERO) TT99=TT99+Z180 

0424 IF ( VV99 ,G T . ZERO .AND. UU99 .CT.ZERO) TT99*TT99+Z180 

0425 IF < VV99 .Gi ZERO .AND. UU99 .LT.ZERO) TT99=TT99«- C2*Z180 ) 

0426 600 IF ( T < I ) . LE .Z233P1 .OR. F<I).EG.8I .OR. F<I ) . GT. Z20P) GO TO 900 

0427 IHUHFL-Q 

0428 F ( I ) =EI 

0 429 DEWF’T (I) =61 

0430 (30*81 

0431 IF < GG99 . LE . Z233P1 .OR. HH99.EQ.8I .OR. HH99.GT.Z20P) GO TO 900 

0432 HH99=BI 

0433 0099=81 

0 434 XX9?=E:I 

0435 900 IF ( TV (I > .NE. ZNN)GO TO BOO 

0436 T < I ) = 0 . 

0437 TV (I ) *0 . 

0438 POTTP<I)=0. 

0439 HGP ( I >=Q . 

0440 GG99=0 . 

0441 QG99=0. 

0442 DD9V=0. 

0443 8899=0. 

0444 HW99=0. 

0445 C 

0446 C WRITE INTERPOLATIONS 

0447 C 


0448 

BOO AA99P 


AA99 

4 

.05 

0449 

E-.E-99P 

= 

8899 

4 

.5 

0450 

FF99F- 

- 

PP99 

4 

.05 GROUNDED FOR PRINTING 

0 451 

PP99P 

= 

PP99 

4- 

.00005 

0452 

GG99P 

S 

GG99 

4 

.05 

0453 

Q099P 

25 

QQ99 

4 

.05 

0454 

HH99P 

at 

HW99 

4 

.005 

0 455 

HH99P 

ac 

HH99 

4 

.05 

0456 

0099P 

B 

0099 

4 

.05 

0457 

XX99P 

£ 

XX99 

4- 

.00005 

0458 

SS99P 

= 

SS99 

4 

.05 

0459 

TT99P 

= 

TT99 

4 

.05 

0460 

UU99F 

B 

UU99 

4 • 

05 

0461 

VV99P 

at 

VV99 

4 

.05 

0462 

WRITE C IQUT , 1 0 10 ) AA99P , BB99P , FF99P , PP99P , GG99P , QG99P , WW99P , HH99P 


0463 « 0099P >XX99P .SS99P .TT99P .UU99P , VV99P 

0464 KKKK=KKKK+1 
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0465 

0466 

0467 
5468 

0469 

0470 

0471 

0472 
0 473 
0 474 
0 475 
0476 
0 477 
0478 
0 479 
0480 
0431 
0482 
0 483 

0434 

0435 
0486 
0437 
0488 
0 489 

0490 

0491 

0492 
0 493 
0494 
0 495 
0 496 
0 497 
0498 
0 497 
0500 
1)501 

0502 

0503 
1)504 

0505 

0506 

0507 
0503 

0509 

0510 

0511 

0512 

0513 

0514 

0515 

0516 

0517 

0518 

0519 

0520 

0521 


r. ; 


OF POOR Q'JAi 


IVY 


009 PRD 


-sa:i 


9963 IF(PR(I> . EG. AKKME(KKKK) ) KKKK-KKKK+1 

IF <T (I) .LE.Z233F , 1 .OR. F(I>.EQ.E:I .OR. F(I) .GT.Z20P) GO TO 91J 

IHUMFL*0 

F <I)*BI 

OEMF'T (I)*BI 

QQ=BI 

910 IF ( TVd ) ,NE. ZNN) GO TO 010 }ZNN=-999.9 

Td)*6I 
TVd)=BI 
FOTTP(I)*8I 
HGF <!>=&! 

810 CONTINUE 

IF <SPO<I) .NE.Z999P9 .AND. DIR(I) .NE.Z999P9) GO TO 811 

WNS=Z999F'9 

WEW*Z999P9 

811 CONTINUE 
C 

C WRITE PROCESSED DATA 

x 


& 

« 


C 

C 

C 


C 

C 

C 


TIMP * TIM ( I ) ♦ .05 5 DUMMY VARIABLE FOR PRINTING IE ROUNDS NUMBER 
HGPP *- HGP(I) + .5 
FRP = PR ( I) + .05 
TALF'P = TALP(I) +.00005 
TF'F'P * T < I ) + .05 
POTTPP «= F'OTTF'(I) +.05 
TVP = TV (I > + .005 
FPPP * F(I.) +.05 
DEWPTP * DEWPT(I) +.05 
OOP * GtQ + . 0 0005 
SPDP = SF'D(I) + .05 
DIRF' - DlRd) + .05 
WNSP * WNS ♦ .05 
WEWP = HEW + .05 
WRITE (IDUT , 1010 ) TIMP, HGPP, 

F RP , T ALPP , TF'F'F' , POTTPP , TVP , FPPP , DEWPTP , OOP , SPDP , 

DIRP, WNSP, WEWP 
63 CONTINUE 

WRITE MESSAGES 


64 


WRITE (IOUT , 9154 ) 

IF (IHUMFL .EQ. D> WRITE (IOUT , 4 0 0 0 ) 
IF (IELVFL .EO. 1) WRITE (TOUT ,50 0 0 ) 
WRITE (IOUT, 9154) 

IPTFLG=-1 
DO 64 1=1 , NCDS 
IF(EPR <I) ,LT. 

IPTFLG=1 
IF(ETP<I> .GE. 

IF <EPT (I) .GE. 

CONTINUE 
IFdPTFLG 


ZERO) GO TO 64 

-999.) WRITE (IOUT, 9264) EF‘R<I) ,ETFCI) 
-999.) WRITEdQUT ,9364) EPR <1 ) ,EPT (I) 


f ZNNN— -999 , 999 


.GT. 0) MKITE (IOUT, 9464) 


1 RETURN 
END 


J 
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FACE 001 


PRDCQM .SA:l 
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15 DEC 1982 


[lliimui COMMON DATA FOR F’RD PROGRAM mhuhmhhhx*k*«sx: 

COMMON TALPtl00),AZ<100) , DEWPT < 100 > ,DIR C 10 0 > ,EL( 100 > ,FU0 0 > 
COMMON HGP(IOD) , JUNK ( 123 > , UL ( 7 , 11 0 ) . SECS , DUMMY , DUMMY 1 , IDUMM 
COMMON IDUMM 1 , AMINU , IDSTAT , IDSOND , IMONTH , ID A Y , IYEAR , HEIGHT 
COMMON FP0 , FTEMPO ,FR0 , KECTP , CALRH , ICRPN, CERST ,NCDS , IOUT 
COMMON VSFC.DSFC 

COMMON SF‘D< lOO).T(lOO) , TIM( 100) ,TU(100>,XX(100) 

COMMON YY<100> ,OT < lfiu i , OF < 100 > , PR< 100 > 

COMMON F'OTTP < 100 ) 


Civ> - 

OF POOri QUAL 
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001)3 OPTION STACK=300.USTACK*200 

0002 PROGRAM MAIN 

U003 C 'PRD' RADIOSONDE DATA REDUCTION PROGRAM 
0001 C 

0 0 OS IIHMIIIKUKM COMMON DATA FOR PRD PROGRAM 
0006 * 

0007 INCLUDE 'PRDCOM.SA' 

0003 * 


0 0 09 lll)IX)RXKK]IIKIlKXIllXIKXXIXIXXMIXXIKXXI]IKIIKaKKIKXftlt CVIKVKVIKXKXISM 

0010 c 

0 011 C DATA IS PASSED TO PRD FROM MET If) COMMONS 

0012 C 

0013 WRITE tIOUT ,140) 

01)10 110 FORMAT ’ '****»***«■ OUTPUT PROCESSING FOLLOWS ***** •**»*', /> 

Kill- WRITE C1QQ ( 1000> 

0 016 10110 FOFcMAT ( ' AT THE START OF THE PRD PROGRAM') 

0t)l7 * 

0018 * 

0019 * 

0020 CALL PRO 

0DZ1 C 

0072 *■**«:» PROGRAM ENDS 
0 023 i: 

PP71 20 WRITE fICUT, 130) 

(i 02G 130 FOF<MAT ( ' NORMAL PROGRAM TERMINATION') 

0026 WRTTF (TOUT , 115) 

0112.' 3 O') FORMAT) /,/,/,/, ) 

!! I 1 ?!'. WRITE (10 0,116) 

PC a*' 116 FORMAT C/, /,/»/,/» 79 ('*'),/«/,/*/,/» 37 <' '),' UMET-1 , 

0 030 l 27 (' '),' NORMAL PROGRAM TERMINATION', 

0031 A /,/,/,/,/, 79('*'), /,/,/, /,/,/,/,/) 

0032 ? 

0033 * 

0031 IDUM - l ;SET UP INFINTE DO LOOP 

CO 31) 300 IDUM = IDUM + 1 

0036 IDUM = IDUM - 1 

0037 GOTO 300 

0 0 3FJ STOP 

0039 END 


Pi 


•r - 


FACE 

0001 
0002 
0003 
0001 
0 0 OS 
0006 
0007 
0 0 OB 

0009 

0010 
0011 
0012 
0013 
OOH 

0015 

0016 
0017 

ooie 

0019 

0020 
0021 
0 022 
0 023 
0021 
0 025 
0 026 
0 027 
0 02B 
0 029 
0030 
0 031 
0032 
0 033 
DOS'! 
0 035 
0036 
0 037 
0 038 
0039 
0 0-10 
0011 
0 012 
0 013 
0011 

0015 

0016 
0017 
0 01B 
0019 

0050 

0051 

0052 
0 053 
0 051 
0 055 

0056 

0057 
0 058 


Or 


■ • / 

: . I 


001 RL .SAJI UMET-1 15 DEC 1982 

CFiL SUBROUTINE TO DETERMINE RELATIVE HUMIDITY 

C 

SUBROUTINE RL ( RECRH, CALTP , I , IDF , IH > 


INCLUDE 'PRDCOM.SA' 


CENT=273. 16 

RAD=57. 2957795 

IF (IH.NE. 0 )GO TO 1 

CALTK*CALTP+CENT 

A3=l . L« < RECRH-50 . 0 > /RAD 

DUMMY =ZSIN( A3 >/ZCOS ( A3 ) 

DUMMY 1=0 . 0355*CALTK-1S .3315 

DlJMMY2*0UMMY+33 . 75-0 . Q67»CALTK+DIIMMY1*AL0G1 0 ( CALRH ) 

FK-DUMM Y2/ ( 0 . OB«ALOGl 0 (CALRH > +0 . 27-0 . 0 02«CALTK > 

IH— 1 
RETURN 

C CHECK VALIDITY OF RH ORDINATE 

1 IF <OF(I) .EG. 0.) GO TO 8 
IF(T(I) .LT, 233 • 16 ) GO TO 8 
13 IF ( MOD < ICRBN , 2 ) .GT. 0)GO TO 16 
C RH ELEMENT 176 (CARBON) 

DF=16 . O-OF (I) 

IF (OF .LE. 0 . 0 ) GO TO 35 
CEE=61 . 8-CALRH/2 . 51 
R=100 . 0-CALRH 
AA=1.66+DF/33.0 
GO TO 36 

35 CEE=CALRH/1. 15-5. 198 
R=10. 0-CALRH 

AA=0 .5-OF/lO . 0 

36 DUMMY=DF/CEE 
DUMMY 1=ABS( DUMMY) 

DUMM Y2=POWER ( DUMMY 1 , AA ) 

F1UM=CALRH+R*DUMMY2 
DUMMY=T (I)— 233.15 

F ( I )=F10M+SQRT (DUMMY )*GF <I)*(F10M-33.0)/1050.0 
GO TO 6 

C RH ELEMENT 11Q (LITHIUM) 

16 A3=0 .02617991*(OF(I)-50.0) 

DUMMY*! ( ZSIN( A3 ) /ZCOS ( A3) +33. 75-0. 087»T(I)-( 0.27-0 .0O2*T(I) >*FK 
R > / ( 15 • 3315+0 . 08*FK-0 • 0355*T (I) ) ) 

F ( I > =POWER (10.0, DUMMY > 

6 IF ( F (I ) .LT. 0 . 0 )GQ TO 8 
IF (F(I) .LT. 99,5) GO TO 55 
DEWF'T ( I ) *T ( I) 

IF (F ( I > ,LT • 100.0) GO TO 55 
F (I)=100 • 0 
55 IDF=0 

DUMMY* ( 7 .5*T(I)-2018.7)/(T(I>-35.9) 

DUMMY l=F'OWER( 10.0, DUMMY) 

E=F(I)*0.06U*DUMMY1 
IF (F ( I > , EG. 100.0)CO TO 7 
DEWPT (I>=(237 . 3*AL0G1 0 ( E)- 186.527) / (8. 2B6-AL0G1 0(E) > 

DEWF'T ( I > =273 . 15+DEWPT ( I ) 

7 TV(I)=T(I)/(1.0— 0. 379*£/PR (I) ) 


PACE 002 RL 


sa: 1 


UMET-1 


15 DEC 1902 


0059 

CO TO 9 

0 060 

8 TU(I)=T(I) 

0 061 

OEWPT(I)-0.0 

0 062 

F (I )“Q • 0 

0 0 63 

IDF*1 

006* 9 

RETURN 

0 065 

END 


Jr 
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0001 
0002 
0003 
0 00 A 
0 D 05 
0006 
0007 
0 0 08 

0009 

0010 
0011 
0012 
0013 
0011 
0 015 
0016 

0017 

0018 

0019 

0020 
0021 
0 022 
0 023 
0 021 

0025 

0026 
0 027 
0 028 
0 029 

0030 
0 031 
0 032 
0033 

0031 
0 035 
0036 
0 037 
0 038 
0 039 
0010 
0G11 
0 012 
0013 
0 011 
0 015 
0 016 
0 017 
0 018 
0 019 

0050 

0051 
0 052 
0 053 
0051 
0 055 


CTEMPCE SUBROUTINE TO CALCULATE TEHF'ERATURES 
SUBROUTINE TEMFCE ( CALTF" , IERRF ,1 .ITEMP ) 

B 

C SUBROUTINE TO COMPUTE RADIOSONDE TEMPERATURES 105,119 

a 

B 

INCLUDE 'F'RDCOM.SA' 

B 

BBBBBBXBBXBXKBBBBBmxKXBXXKBBXBXBBBBBBXXBXXXBXXBBBXBBBXBBBBBXB 

IERRF*0 
CENT ii 273 .16 

IFtDTCI) .EQ. 0 .AND. itEMP .NE. 0) GO TO 10 
IF ( ITEMF' ,NE . O ) GO TO S3 
DUMHY=2,0*RECTP 
DUMMYl=POWER(DUMMY, .996626) 

R30=-18000 . 0+8960200 . 0/DUMMY1 

CALTK-CALTP+CENT 

TLAST=CENT 

DUMMY»151 0 . 0/CALTK 

DUMMY1 =POWER < C ALTK , 2 . 95 ) 

AINV=F:ECTPxF.XP < DUMMY > / < DUMM Y la (95 . 0-RECTP > > 

XTEMP-1 

RETURN 

S3 IF < ICRBN ,GT. 1 >GO TO 60 
C TEMPERATURE ELEMENT 119 

F ACTOft=AINUx < 95 . 0/DT < I > - 1 . 0 ) 

30 DUMMY=1510 . 0/TLAST 
EXPT*EXP( DUMMY) 

DUMMY=POWER ( TLAST ,2 , 95 ) 

DUMMY l*POMER < TLAST , 1 . 95 > 

T<I ) “TLAST+ ( EXF'T-FACTOft*DUMMY ) / ( 1510 . OaEXPT/ (TLAST*TLAST ) 

8 +2.95XFACT0RXDUMMY1) 

DUMHY=TLAST-T<I) 

IF <AB'3< DUMMY) .LE. 0.02)GO TD 51 
TLAST^T (I) 

GO TO 30 

51 T( I)«T (I)-CENT 

T < I )=»CENT+T (I)-T(I)x<1.0+T<I)*T(I)*T(I>xT<I)/9150625.0+(17 .0+CALTF’ 
8 )B ( 17 , 0+CALTF 4 ) /16 . 0 ) /SO 0 . 0 

GO TO 1 

C TEMPERATURE ELEMENT 105 
60 0UMMY=2 . OxDT (I) 

0UMMY1=P0WER< DUMMY, ,996626) 

REST=-160 0 0 . 0+ ( 896020 0 . 0 /DUMMY 1 ) 

DUMMY=REST /R30 
DUMMY2=AL0G ( DUMMY > 

DUMMY3=ALOG(10. ) 

FACT0R-0UMMY2/DUMHY3 

T < I >«l . 0/ ( 3 . 298588E-3+1 . 0770lE-3*FACTOR+5 . B9986E-5 b ( FACT0RBB2 ) ) 

1 RETURN 

C NO TEMPERATURE INPUT 
10 TCI)*— 999.99 
RETURN 
END 


\ V J 


RAGE 

0001 

0002 

0003 

0004 
0 0 05 
0006 
0007 
00 OB 

0009 

0010 
oon 
0012 
0 013 
UQ14 

0015 

0016 
0 017 

on ib 

0 019 
0 020 
0021 
0022 
0 023 
0024 
0 025 
0 026 
0027 
0 026 
0 029 

0030 

0031 
0 032 
0 033 
0 034 
0 035 
0 036 
0 037 
003B 
0039 
0 040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 
004S 

0049 

0050 
0 051 
0 052 

0053 

0054 
0 055 

0056 

0057 
0 058 


OF POOR QUALIFY 


901 MINDS .SAU 


UMET-1 


CWINDS SUBROUTINE TO CALCULATE HINDS 
C 

SUBROUTINE HINDS t HAX , HGMDT , DISSFC , 

IBIXKXMlVXlXIVIKXKIXXIXXlXlXf XIXlIIKIKkl 


C 

c 


INCLUDE 'RRDCOM.SA' 


MIN) 


DIMENSION V ( 125) , U ( 125 ) 

RAD=S7. 29570 
R-6371. 

SF'D ( 1 )=U5FC 

DIft( 1 >*DSFC 

ANG*OSFC/RAO 

U (1 > =«ZCOS ( ANG ) *SFO < 1 ) 

U (1 ) -ZSIN ( ANG > xiSFD < 1 ) 

C=16. 66667 
DISF‘=DISSFC/10 00 . 

DUMMY«AZ(1)/RAD 

XX ( 1 ) *--DISF'X(ZSIN ( DUMMY ) 

YY < 1 ) =DISF'*ZCOS < DUMMY ) 

ISTART*?. 

IF (MIN ,NE. 1)ISTART«MIN 
DO 10 H=ISTART ,MAX 
HEIGH=HGP< M > -HGMDT 
Z*0.0 01X( AES < HEIGH) 

AZR=AZ(M>/RAD 

IF < EL< M > .EG. 0.0) EL(M) =0 . 0001 
DUMM1=EL(M> 

DUMMY=AE!S(DUMM1> 

ELR=DUMMY/RAD 

DUMMY*(1 .0+Z/R)/ZCOS(ELR> 

DUMMY 1»DUMMY»*2-1 , 0 
DUMMY2=SQRT (DUMMY1 ) 

DUMMY3=ATAN(DUMMY2> 

DISF-R* ( DUMMY3-ELR > 

XX ( M > =DISF’*Z5IN ( AZR > 

Y Y < M ) =DI5F-x(ZC0S ( AZR > 

10 CONTINUE 

MM2=MAX-2 

MM1=MAX-1 

MF'1=MIN+1 

MF'2=MlN+2 

U ( MF1 ) =C* < XX r. MF‘2 )-XX < MIN > ) / (TIM( MR2 ) -TIM ( MIN > ) 

V ( MF l > =C* < Y Y C MF-2 > -Y Y ( MIN > > / < TIM ( MF'2 ) -TIM ( MIN ) ) 
U(MM1>=C*(XXCMAX)-XX(MM2) ) / ( TIM ( MAX ) -TIM ( MM2 ) > 
V ( MM1 ) =C* < YY < MAX ) -YY (MM2) ) / < TIM<MAX ) -TIM ( MM2 > ) 
DO 20 M=HF-2,MM2 

IF(ELCM) ,GT. 10.01GO TO 21 
INF'=M+2 
INM=M-2 
CO TO 22 
21 INP=M+1 


INM*M-1 

22 DUMMY-TIM ( INF ) -TIM ( INH > 

U < M > =CX( ( XX ( INF - ) -XX < INM ) ) /DUMMY 
20 V(M)=C«(YY(INP)-YY(INM) ) /DUMMY 
DO 30 M=MF'1,MM1 
DUMMY=UCM)X(U(M)+V<M>*V<M) 


IS DEC 1902 



i^ftCE 002 HINDS 


sa:i 


UMET-1 


15 DEC 19S2 


0059 SPD(M>-SQRT(DUHMY> 

0060 DUMMY-U < h ) 

0061 DUMHY1«V<M> 

0062 30 DIR ( M ) -ADIR ( DUMMY » DUMMY 1 > 

0 063 SPD<MAX)*SPD<MM1 ) 

0 064 DIR < MAX) -DIR ( MM 1 ) 

0065 RETURN 

0066 END 


U. v ' ■ u » KI ‘ 1 * 

OF POOR QUALi' 


Vi 


PACE 01)1 2COS .SAtl UMET-1 II DEC 19B2 

00(11 C 

0002 FUNCTION ZCOS(A) 

0 003 C 

0OIH C THE 6809 CANT TAKE COS OF A NEC # 

0005 C 

0006 
0007 
0 008 


DUHHY*=AE:S(A) 
ZCOS=COS< DUMMY) 
RETURN 


/ 




PAGE 001 ZSIN . SA • 1 UMET-1 15 DEC 1982 

0001 C 

0002 FUNCTION ZSIN(A) 

0003 C 

OQOA C THE 6809 HILL NOT TAKE THE SIN OF A NEG * 

0005 C THIS FUNCTION TAKES CARE OF THE PRQELEH 

0006 C 

0007 IF (A .GE. 0.0) GOTO 10 

0008 A * -A 

0009 ZSXN=SIN< A) 

0010 ZSIN x- ZSIN 

0011 RETURN 

0012 10 ZSIN = SIN< A ) 

0013 RETURN 


APPENDIX 8 


Sample Output 

The output unde? the operational printer option (printer output code 
* 1) is given here as an example. No adjustments of the algorithm have 
been made to optimize decommutation or other performance, nor is there an 
evaluation offered here of the adequacy of the adapted software. 


ORIGINAL P.Ar:'i ^ 
OF POOR QUALITY 


tICT-l 

COWG6ER/DECOIWTATOR mPH* 


(MTV. IF UTAH MJC 1912 


DfUT DATA mm i m 


STATION ID * 71 
STATION HBCCHf * 1.0 
ZERO ASlt/TH i 1 
DATE * 3*ll*S2 
SifffCE T» * 1.0 

SUFACERH* 44.1 
5JTKL PRESS *1033.8 
SlffACE NDC SPEED * 1.1 

SlFFACE WHO DIRECTION * 45.0 
SW0E ID * 1017 
REFERENCE ORD * 12.8 
TDfCALORD* 73.1 
PH ML ORD * 58.3 
SURFACE TlJf ORD * 41.4 
SURFACE W ORD 1 H.O 
SOKTTPE* 2 
BJFST CONTACT * IOC. I 


ORIGINAL PA&i 
OF POOR QUALITY 


WS5WTCH F9ESSIK CALIBRATION TABLE 


1 : 

1157.8 

1196.2 

1839.8 

1823.6 

1112.4 

1181.2 

989.8 

97B.8 

»: 

967.8 

957.8 

996.8 

935.1 

929.9 

913.4 

993.1 

892.9 

17! 

881.6 

PI .2 

■68.8 

■50.2 

839.6 

829.9 

819.1 

888.6 

25: 

799.9 

788.2 

778.2 

768.2 

757 .8 

798.2 

738.2 

728.2 

33! 

718.9 

788.8 

699.2 

689.6 

680.1 

Pl.t 

661.1 

651.4 

91! 

692.2 

633.2 

623.8 

619.9 

415.9 

594.9 

5P.6 

578.9 

99! 

569.8 

561.8 

552.9 

593.8 

535.9 

SP.I 

518.9 

589.8 

57! 

581.8 

993.1 

985.2 

9P.2 

969.4 

961.2 

953.9 

995.6 

65: 

937.1 

938.1 

922.6 

915.2 

907.8 

918.9 

392,8 

385.8 

73! 

378.6 

PI. 9 

369.2 

357.9 

350.6 

393.8 

3P.9 

331.6 

81! 

329.8 

317.9 

311.8 

399.8 

298.6 

292.9 

286.2 

281.2 

89! 

279.2 

268.9 

262.8 

256.8 

251.2 

295.6 

290.2 

239.8 

97! 

229.9 

229.2 

219.8 

219.0 

218.8 

283.8 

199.2 

199.2 

115! 

189.6 

185.1 

161.9 

175.8 

171.9 

1P.I 

IP. 8 

158.6 

113! 

159.9 

150.2 

196.0 

192.9 

138.2 

139.6 

130.6 

U7.I 

121! 

123.9 

121.8 

U6.6 

112.8 

109.8 * 

116.2 

113.8 

188.8 

129! 

96.8 

93.6 

90.9 

P.6 

B9.4 

11.8 

79.0 

76.2 

137! 

73.2 

78.6 

67.8 

65.2 

62.9 

59.8 

57.9 

55.1 

195! 

52.9 

99.8 

97.2 

99.9 

92.9 

91.1 

P.9 

35.8 

153! 

32.6 

30.2 

P.8 

25.2 

P.6 

21.1 

17.4 

19.8 

161! 

12.2 

9.2 

4.6 

3.8 

1.8 

1.8 

l.l 

l.l 

149! 

1.8 

1.0 

8.1 

8.0 

B.t 

l.l 

l.l 

i.l 

177! 

1.8 

8.0 

8.0 

0.1 






EFFECT HC CONTACT WfER AT LAUNCH * 3.17 
COCST CONTACT tUfEF CALIBRATE * 169 


BALLOON RELEASEE AT MSPttO.I 


mirom OUTPUT PROCESSING FOLLOWS uiiiiim 

TEIf OF® FAILS DIFFERENCE TEST n C*CK TW 0K> AT 1.1000 

TEIf OF® FAILS DIFFERENCE TEST ** CHECK TBf ORE AT Z.IOOt 


Dr HO 


STATION 72 lALHM DATE 3-11-12 UUCH TDC11tZ7:2M GMT SHE » 9697 


SUTACE COCmONS 

KESS 1133.8 1C BASE CAL - 31.1 C AT 73.9 OR) 

TO* J77.1 X HJttMTY « 38.2 l AT 46.1 OR) 

mil m.i x 


TDC 

ALT 

mss 

LOG 

TEMP 

PTE!* 

VTD* 

HLMTY 

SOFT 

SPOT 

SPD 

on 

NS 

EH 

HW 

CP NT 

« 

mss 

DEC X 

DCS K 

DECK 

WENT 

DEC K 

HUHTY 

l*S 

DEC 

1*5 

IVS 

i.l 

5. 

1133.7 

3.0199 

277.1 

279.5 

277.41 

45.6 

271.2 

0.0032 

4.1 

45.1 

-1.6 

-3.5 

8.9 

273. 

1000.0 

3.0100 

275.2 

Z75.2 

275.48. 

44.7 

249.6 

1.1029 

999.9 

999.9 

999.9 

999.9 

1.9 

299. 

997.9 

2.9989 

275.0 

275.2 

275.53 

44.8 

249.5 

0.1029 

999.9 

999.9 

999.9 

999.9 

2.0 

583. 

942.3 

2.9833 

274.1 

279.1 

274.15 

0.0 

0.0 

0.0000 

999.9 

999.9 

999.9 

999.9 

3.0 

869. 

928.9 

2.9480 

275.9 

281.2 

275.49 

33.1 

240.8 

1.0016 

999.9 

999.9 

999.9 

999.9 

3.9 

U23. 

900.0 

2.9592 

Z74.2 

289,4 

274.40 

99.9 

244.7 

0.0027 

999.9 

999.9 

999.9 

999.9 

9.0 

1199. 

897.8 

2.9532 

274.2 

289.9 

274.48 

51.2 

247.1 

1.0027 

999.9 

999.9 

999.9 

999.9 

5.1 

1929. 

847.5 

2.9383 

277.0 

288.5 

277.53 

59.3 

248.6 

0.1131 

9249.4 

80.2 

-1572.0 

-9114.9 

3.4 

1588. 

850.0 

2.9299 

279,8 

287,9 

275.31 

53.7 

244.5 

1.1124 

4071.4 

80.2 

-490.1 

-9112.4 

4.0 

1717. 

834.5 

2.9225 

273.2 

287.5 

273.57 

53.2 

249.8 

0.0024 

9.3 

110.6 

1,7 

-9.1 

7.0 

2003. 

807.1 

2.9049 

271.8 

287.9 

271.17 

50.7 

242.1 

I.II2I 

9.5 

113.4 

2.2 

-9.1 

7.2 

2073. 

800.1 

2.9031 

270.9 

288.8 

271.19 

0.0 

0.0 

0.0910 

9.4 

103.6 

2.2 

-9.0 

8.0 

2289. 

779.0 

2.0915 

271.3 

291.3 

271.27 

0.0 

I.l 

Mill 

9.0 

113.9 

2.2 

-8.4 

9.0 

2579. 

751.0 

2.8754 

270.2 

293.3 

270.50 

38.5 

258,1 

1.1014 

8.0 

lM.I 

1.9 

-7.8 

11.1 

2891, 

724.0 

2.8410 

248.2 

293.9 

248.99 

97.7 

258.8 

0.0017 

7.9 

89.4 

-0.1 

-7.3 

11.0 

3119. 

701.2 

2.8958 

244.2 

299.4 

244.55 

45.4 

241.8 

1.9121 

9.2 

72.1 

-2.7 

-8.7 

11.0 

3127. 

700.0 

2.895! 

244.2 

299,7 

244.51 

45.4 

240.8 

1.1021 

9.4 

71.5 

-2.9 

-6.8 

12.0 

3398. 

474.1 

2.8300 

245.3 

294.7 

245.42 

45.1 

259.9 

1,1021 

13.0 

42.5 

-5.9 

-11.4 

13.0 

Tiifl 

«Nwi 

452.9 

2.B199 

242.9 

297.0 

243.22 

49,6 

257.4 

1.0117 

15.4 

54.8 

*6.3 

-12.7 

19.0 

3931. 

431.0 

2.8000 

240.8 

297.5 

241.09 

45.0 

255.6 

1.9115 

15.6 

42.3 

-7.2 

-13.7 

15.0 

9195. 

409.5 

2.7850 

259.1 

298.9 

259.29 

67.3 

259.3 

1.1014 

13.7 

42.1 

-4.3 

-12.0 

15.5 

9313. 

400.0 

2.7782 

258.9 

299.0 

258.43 

48.7 

259.1 

1.1914 

13.6 

42.2 

-4.2 

-11.9 

14.0 

9999. 

509.7 

2.7707 

257.7 

299.7 

257.91 

70.3 

253.5 

1.9914 

13.5 

42.5 

-4.1 

-11.9 

17.0 

9494. 

570,3 

2.7541 

254.3 

310.9 

254.99 

75.7 

253.0 

9.9113 

14.7 

72.5 

-9.3 

-13.9 

18.0 

9940. 

550.4 

2.7908 

259.4 

301.9 

259.78 

70.5 

250.6 

1.1011 

14.8 

72.9 

-9.2 

-14.1 

lf.O 

5220. 

531.7 

2.7257 

253.1 

303.2 

253.10 

1.0 

0.1 

9.1199 

17.5 

71.9 

-5.3 

-14.5 

20.0 

5987. 

512.8 

2.7100 

251.4 

309.5 

251.40 

I.l 

0.0 

9.9999 

21.1 

49.5 

-7.3 

-19.7 

20.7 

5473. 

500.0 

2.4990 

250.4 

305.5 

250.46 

0.0 

1.0 

9.9090 

22.3 

45.6 

-9.1 

-21.2 

21.0 

5743. 

993,9 

2.4937 

250.1 

305.9 

250.21 

x.l 

293.6 

0.1007 

23.0 

43.9 

-10.1 

-21.5 

22.0 

4093. 

975.9 

2.4770 

298.2 

307.0 

298.32 

53.6 

291.4 

9.9904 

24.4 

58.9 

-12.3 

-21,8 

23.0 

4323. 

957.3 

2.4402 

295.8 

307.9 

295.89 

42.9 

240.9 

0.0005 

23.8 

58.6 

-12.3 

-20.2 

29.0 

4409. 

939,9 

2.4929 

293.9 

307.9 

293.52 

69.2 

239.4 

I.IIIS 

22.2 

59.3 

-11.2 

-19.0 

25.0 

4893. 

922.1 

2.4255 

291.0 

308.3 

291.14 

99.4 

240.4 

0.1904 

23.4 

43.1 

-10.5 

-20.7 

24.0 

7159. 

904.5 

2.4090 

239.0 

309.1 

239.04 

97.0 

Z3B.7 

I.III5 

22.9 

62.6 

-10.4 

-20.2 

24.9 

7271. 

900.0 

2.4021 

238.2 

309.5 

238.29 

92.4 

237.4 

1.1104 

23.2 

43.6 

-11.2 

-20.7 

27.0 

7992. 

390.3 

2.5919 

234.9 

310.0 

237,10 

85.3 

235.4 

I.IIM 

23.8 

45.0 

•1M 

-21.5 

28.9 

7730. 

379.9 

2.5733 

239.3 

310.3 

239.37 

83.3 

232.6 

9.9013 

25.4 

71.1 

-8.2 

-24.0 

29.0 

8023. 

358.4 

2.5597 

232.0 

310.9 

231.97 

1.0 

0.0 

I.IIM 

24.1 

69.3 

-8.3 

-22.4 

29.4 

8188. 

350.0 

2.5991 

230.4 

311.2 

230.54 

I.l 

0.0 

I.IIM 

25.2 

46.6 

-9.1 

-23.3 

30.0 

8290. 

399.8 

2.5375 

229.7 

311.9 

229.49 

I.l 

I.l 

I.IIM 

25.8 

46.0 

-9.4 

-23.8 

31.0 

8557. 

331.3 

2.5202 

227.2 

311.4 

227.29 

0.0 

I.l 

I.IIM 

28.1 

44.5 

-U.l 

-25.6 

32,0 

8824. 

318.1 

2.5024 

229,8 

311.8 

229.77 

0.0 

0.0 

I.IIM 

33.2 

44.0 

-13.4 

-30.2 

33.0 

9994. 

305.2 

2.9894 

222.9 

312,2 

222.91 

0.0 

1,0 

I.OMI 

30.5 

44.4 

-12.0 

-27.9 

33.9 

9208. 

300.1 

2.9771 

221.4 

312.4 

221.43 

0.0 

0.0 

Mill 

28.3 

49.6 

-12.0 

-Z3;4 

39.0 

9352. 

293.9 

2.9475 

220.4 

313.2 

220.42 

1.0 

o.o 

MOM 

25.4 

61.4 

-12.1 

-22.4 

35.0 

9597. 

282.5 

2.9509 

218.4 

313.7 

218.59 

I.l 

1.0 

I.OMI 

29.5 

59.2 

-15.0 

-25.2 

34.0 

9870. 

Z7I.4 

2.9323 

214.2 

319,0 

214.17 

0.0 

1.0 

MMS 

32.7 

45.9 

-13.2 

-29.7 

37.0 

10124. 

259.8 

2.9197 

219.7 

315.5 

219.47 

0.0 

0.0 

I.IIM 

39.1 

45.4 

-14.0 

-31,0 

38.0 

10348. 

250.0 

2.3979 

213.5 

317.2 

213.99 

I.l 

1.0 

1.0100 

4M 

61.5 

-19.0 

-35.0 

38.0 

10380. 

299.5 

2.3971 

213.9 

317.3 

213.93 

1.0 

I.l 

Mill 

91.3 

61.3 

-19.2 

-35.2 


ORIGINAL '*3 
OF POOR QLiAL !YY 


39,1 

19638. 

239.4 

2.3791 

212.7 

329.1 

212.79 

9.9 

' 1.8 

l.llll 

42.8 

63.2 

-18.2 

-38.1 

41.1 

19918. 

228.9 

2.3596 

212.9 

323.9 

211.98 

1.9 

1.9 

Mill 

31.1 

65.1 

-15.8 

-31.4 

11.1 

HITS. 

219.6 

2.3116 

211.4 

326.1 

211.38 

9.1 

9.9 

1.1181 

3M 

61.4 

-16.4 

-35.1 

42.1 

11131. 

211.6 

2.3235 

211.7 

330.3 

211.66 

9.9 

8.8 

1.9001 

43.1 

48.4 

-11.8 

-41.2 

13.1 

11699. 

282.1 

2.3956 

213.2 

336.7 

213.21 

1.9 

l.l 

1.1119 

49.8 

74.5 

-18.8 

-38.3 

13.2 

11756. 

280.9 

2.3918 

213.5 

338.2 

213.53 

1.8 

9.1 

1.1811 

38.1 

74.3 

-11.5 

-37.1 

H.l 

11957. 

193,7 

2.2871 

214.4 

312.9 

214.55 

1.0 

l.l 

9.0109 

31.4 

73.8 

-8.6 

•33.2 

15.0 

12233. 

115.3 

2.2408 

214.5 

317.1 

214.16 

1.9 

l.l 

Mill 

36.4 

73.8 

•11.1 

-35.1 

41.1 

12596. 

177.5 

2.2191 

215.3 

352.9 

215.32 

1.8 

M 

l.llll 

28.1 

74.8 

-6.5 

-21.3 

17.1 

12773. 

179.1 

2.2388 

215.9 

358.1 

215.92 

l.l 

l.l 

1.1191 

21.8 

78.7 

-1.3 

-24.3 

ie.i 

13919. 

162.9 

2.2119 

215.6 

362.1 

215.57 

1.9 

l.l 

9.9101 

31.8 

- 71.8 

-8.1 

-33.5 

19.9 

13326. 

155.9 

2.1 27 

214.7 

365.2 

211.75 

1.9 

l.l 

1.1811 

35.3 

71.1 

-11.3 

-33.3 

19.8 

13567. 

151.9 

2.176! 

211.7 

369.2 

211.79 

1.8 

l.l 

1.9191 

17.9 

87.4 

-1.8 

-16.1 

se.i 

13611. 

119.9 

2.1739 

214.7 

369.9 

214.49 

1.9 

til 

1.1911 

18.1 

88.7 

-».l 

-18.3 

Si. 9 

13912. 

112.6 

2.1519 

293.4 

512.2 

299.57 

31.3 

274 .1 

9.8331 

26.7 

89.2 

-1.5 

-26.2 

SZ.i 

112)2. 

136.7 

2.1358 

255.9 

151,9 

256.25 

39.6 

212.8 

1.9922 

17.8 

38.1 

-13.6 

-11.2 

53.1 

11578. 

131.1 

2.1176 

225.1 

492.8 

225.13 

M 

0.8 

l.llll 

Z6.S 

81.4 

-3.8 

-26.1 

51.9 

11816. 

125.8 

2.1995 

211.7 

388.2 

214.68 

8.9 

l.l 

1.1109 

35.5 

89.3 

-5.8 

-31.9 

54.: ( 

11881. 

125.9 

2.1969 

211.6 

388.7 

214.SB' 

9.9 

III 

l.llll 

35.8 

78.8 

-6.2 

-36.2 

55.9 

15115. 

121.5 

2.9899 

214.8 

391.8 

211.93 

9.8 

1 • 1 

1.1119 

38.3 

77.5 

-8.2 

-37.3 

56.1 

15112. 

114.9 

2.9413 

213.5 

396.2 

213.53 

9.9 

8.1 

1.1911 

21.8 

81.3 

-2.1 

-21.4 

57.1 

15708. 

119.6 

2.8397 

213.1 

499.6 

212.97 

9.9 

l.l 

1.9801 

21.4 

81.4 

-1.8 

-29.2 

58.1 

16111. 

114.4 

2.0166 

212.1 

491.1 

212.95 

9.8 

V«l 

t.llll 

31.2 

78.7 

-6.1 

-31.5 

59.1 

16261. 

190.2 

2.1909 

211 .6 

198.4 

211.61 

9.9 

w •* 

1 .1191 

28.4 

81.3 

-2.7 

-28.1 

59.1 

16277. 

199.9 

2.9180 

211.7 

188.7 

211.66 

9.1 

i.i 

9.9819 

29.1 

81.4 

-2.4 

-27.7 

61.0 

16529. 

96.9 

1.9123 

212.9 

411.2 

212.93 

1.9 

i.i 

8.1991 

18.6 

86.7 

•l.l 

-19.5 

61.1 

16831. 

91.5 

1.9612 

212.9 

119.9 

212.93 

1.9 

9* V 

1.1109 

35.8 

78.8 

-6.8 

-35.1 

62.1 

17111. 

87.8 

1.9395 

211.1 

421.1 

211.88 

9.9 

i.i 

1.1118 

21.8 

82.1 

-2.8 

-21.4 

63.9 

17152. 

82.7 

1.9177 

211.4 

139.8 

211.36 

9.9 

1.9 

1.1911 

OJ 

118.4 

2.7 

-74 

63.7 

17669. 

89.9 

1.9931 

211.2 

131.4 

211.21 

9.8 

1.8 

1.1901 

15.7 

82.8 

1.8 

-15.6 

61.1 

17731. 

79.8 

1.8979 

211.2 

436.0 

211.16 

9.9 


8.9009 

18.5 

89.5 

l.l 

-18.4 

65.9 

18027. 

75.4 

1.8773 

211.6 

112.9 

211.62 

9.8 

1.9 

Mill 

26.1 

81.8 

-2.2 

-25.9 

66.1 

18331. 

71.7 

1.8557 

218.8 

117.4 

219.81 

8.9 

1*1 

l.llll 

36.1 

78.2 

•4.6 

-35.2 

66.5 

18186. 

78.8 

1.8151 

219.8 

158.7 

218.83 

8.9 

1.8 

1.1911 

28.4 

78.4 

-5.3 

-28.8 

67.9 

18643. 

68.2 

1.8311 

219.8 

151.8 

219.83 

9.9 

l.l 

l.llll 

22.5 

78.8 

-3.8 

-22.1 

68.9 

18968. 

64.8 

1.8113 

211.8 

463.8 

211.81 

1.8 

l.l 

1.1998 

16.3 

82.1 

9.6 

-14.2 

69.9 

19299. 

61.5 

1.7887 

212.8 

172.9 

212.75 

8.9 

9*1 

M088 

17.1 

87.4 

2.3 

-17.1 

69.5 

19112, 

69.9 

1*7782 

213.3 

176.5 

213.26 

9.9 

9.0 

Mill 

13.1 

118,1 

4.5 

-12.4 

79.9 

19592. 

56,6 

1.7477 

213.8 

180.8 

213.74 

9.8 

Itl 

1.9191 

ll.S 

128.8 

6.6 

-8.1 

71.9 

19881. 

55.9 

1.7178 

215.2 

198.4 

215.14 

8,8 

0.1 

9.1111 

11.8 

113.2 

1.7 

-11.9 

72.9 

20218. 

53.9 

1.7216 

215.4 

198.5 

215.19 

0.9 

B«9 

1.1901 

26.4 

78.1 

-5.4 

-25.8 

73.0 

21563. 

50.2 

1.7107 

214,8 

581.9 

214.78 

9.1 

l.l 

8.1909 

31.5 

72.2 

-8.5 

-28.9 

73.1 

21589. 

50.9 

1.6991 

214.8 

sts.s 

244.78 

9.1 

9.9 

Milt 

31.1 

72.3 

-8.8 

-2B.6 

74.0 

29883. 

17.7 

1.6787 

211.8 

512.4 

211,22 

0.9 

1.9 

Mill 

14.1 

75.5 

-3.4 

-13.5 

75.0 

21211. 

15.3 

1.6561 

215.2 

520.9 

215.16 

9.8 


MI00 

7,4 

1114 

6.1 

-4.2 

76.9 

21556. 

12.9 

1.6323 

215.7 

530.3 

215.67 

1.9 

l.l 

1.1811 

25.2 

87.1 

- 1.7 

-25.1 

77.0 

21903. 

48.6 

1.6895 

216.5 

519.7 

216.18 

9.9 

la 1 

1.1191 

28.6 

81.3 

2.2 

-ZB.1 

77.3 

21997. 

48.9 

1.6921 

216.9 

511.1 

216.86 

8.9 

f >1 

1.1118 

26.1 

88.3 

3.8 

-25.7 

78.9 

22251. 

38.1 

1.5817 

218.0 

553.8 

217.97 

9.8 

1,0 

Mill 

21.3 

113.5 

8.1 

-18.5 

79.0 

22571. 

36.6 

1.5629 

229.9 

566.4 

228.84 

9.9 

1*1 

1.1009 

22.4 

85.9 

-1.8 

-22.2 

79.9 

22851. 

35.0 

1.3441 

221.5 

577.3 

221.52 

8.8 

ViO 

9.1091 

26.5 

B7.7 

—1.0 

-24.4 

80.0 

22075. 

31.9 

1.5127 

221.6 

578.1 

221.44 

8.8 

1.0 

8.1809 

26.8 

87.8 

-9.8 

-26.7 

at.o 

23Z20. 

33.1 

1.5196 

222.4 

589.0 

222.41 

8.9 


MODI 

15.3 

88.3 

2.2 

-15.1 

92.0 

23562. 

31.4 

1.1949 

223.9 

599.6 

223.84 

9.9 

8.8 

1.9000 

33.8 

61.1 

-11.7 

-39.3 

82.6 

23860. 

39.1 

1.4771 

224.3 

619.8 

224.26 

8.8 

9.9 

1.1008 

32.9 

79.8 

-11.1 

-39.1 

S3. 9 

23915. 

29.7 

1.1731 

224.5 

612.8 

224.18 

8.9 

9.8 

0.9990 

31.7 

72.2 

-8.4 

-31.1 

81.9 

21288. 

28.1 

1.1199 

225.4 

625.2 

225.36 

8.8 

1.8 

I.IIGO 

26.1 

81.1 

-1.4 

-25.6 

85.9 

24702. 

26.4 

1.1216 

225.9 

63B.9 

225.86 

8.8 

l.l 

8.1000 

36.2 

66.3 

-11.5 

-33.1 

85.9 

25063. 

25.9 

1.3979 

225.8 

618.0 

225.81 

9.8 

1.9 

1.9009 

8.6 

82.6 

-l.l 

-8.4 

86.0 

25121. 

24.8 

1.3912 

225. B 

619.5 

225.81 

8.8 

0.9 

8.1080 

5.8 

88.6 

9.9 

-5.7 

87.1 

25196. 

23.4 

1.3695 

225.3 

658.6 

225.32 

9.9 

1.9 

M0 09 

28.1 

78,8 

-5.3 

-27.1 

88.0 

25872. 

22.1 

1.3117 

224.4 

666.7 

224.39 

9.9 

l.l 

Mill 

36.2 

76.5 

-8,4 

-35.1 

89.9 

26238. 

20.9 

1.3295 

223.6 

675.2 

223.61 

9.8 

9.9 

1.0080 

*.4 

78,4 

-8.9 

-11.4 

89.8 

26531. 

20.9 

1,3810 

223.4 

683.1 

223.19 

1.9 

8.8 

9.1000 

32.3 

82.1 

-1.4 

-31.9 

90.0 

26614. 

19.8 

1.2956 

223.3 

685.4 

223.33 

9.9 

0.9 

9.1000 

28.6 

83.6 

- 3.1 

-28.4 

91.9 

26974. 

18.7 

1.2717 

224.7 

700.6 

224,73 

8.8 

111 

1,1199 

7.8 

118.5 

2.5 

-7.3 
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APPENDIX C 


Circuit Diagrams 



Fig. C-l. Paper tape reader and front panel cable C3. 
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Fig. C-4. Input board layout 



APPENDIX D 


Future Application to Rocketsonde Data: METROC-R 

The following ia a listing of partially completed software for the 
real-time processing of rocket (DATASONDE) meteorological data. The 
routines are those of METROC-K,* adapted to the portable microprocessor- 
based UMET system. METROC-K is the current operational version of the 
University of Utah computer program for automatic processing, at NASA 
Wallops Flight Center, of digitally recorded rocket -launched parachute- 
sonde data. 

All routines below have compiled successfully for the microproces- 
sor system, except DRIVER, which is not yet completely adapted, and 
MAIN, which has not yet been treated. Remaining work includes the 

modification of UMET-1 real-time hardware and software to include the 
slant range word, and programming to accept and process keyboard inputs 
for the rocketsonde system and to produce the desired output hardcopy 
format. Memory management design must be completed with efficient use 
of the available RAM. The two-page program concept, wherein real-time 
(AMET) processing is followed by "derived data" and output processing 
CBMET), adequately accommodates rocket meteorological data processing 
requirements. 

The processing of DATASONDE data is considerably less difficult 
than that for the RAWINSONDE because the need for decommutation is 
essentially abser'*'. "Tie on" to a RAWINSONDE pressure level is re- 

* "METROC-K Algorithms," Forrest L. Staffanson, University of Utah Engi- 
neering Report UTEC MR 79-161, Progress Report under Contract NAS6- 
2627, to NASA Wallops Flight Center, November 1979 (revised January 
1980). Also comparison reports UTEC MR 77-111 and UTEC MR 79-029. 


quired, however, if, in a future system design in which a portable 
tracking system and sonde-borne transponder is used and a sonde-borne 
pressure switch is added, a quite accurate, reliable, and self-contained 
real-time system concept could be realized. 
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PAGE 001 ADD1 


SAJI 


PURPOSE 

This system of routines performs operations on 
the double queue shown below. The two queues 
"chase each other's tails". 

ADD1 adds single data points to queuel. 

ADD2 adds single data points to queueZ. 

REMOV1 removes single data points from queuel. 
REMOV2 removes single data points from queue2. 
REWRT replaces the frequency datum in an interval 
of points at the head of queuel with an "inert" 
value » 

Each 'data point' or 'place' in the queue contains 
5 values. All data is added and removed as 5-vectors. 

> (empty) 

DDDDDDDDDDD EEEEEEEEEEEE 


queue 2D A A E queue 1 

(values D IHEAD2 ITAIL1 E (data points 

from D E from 

DRIVER) D E EDIT) 

DDDDDDD EEEEEEEEEEEEEEEEEEEEEE 

A A 

ITAIL2 IHEAD1 


DUMMY VARIABLES 

D(5> Data vector to be transferred between 

QFILE and calling routine 

EMTY Empty queue flag. Values areJ 

l.=queue is empty, no point retrieved 
-l.=not empty 

FULL Full queue flag. Values are* 

l.-this queue is full? cannot add point 
-1 . =not full 

INTERNAL VARIABLES 

IFASS Flag to indicate the first call to ADD1 

so pointers can be initialized. Values? 

1= first pass? initialize pointers 
0= subsequent pass; don't initialize 

COMMON VARIABLES 

IHEAD1 Head pointer for queuel. Points to location 

of next point to be added to queuel. 

IHEAD2 Head pointer for queueZ. Points to location 

of next point to be added to queueZ. 

ITAILi Tail pointer for queuel. Points to location 

of next point to be removed from queuel. 

ITAIL2 Tail pointer for queueZ. Points to location 

of next point to be removed from queueZ. 

LNGTHQ Length of queues second dimension of QFILE 

QFILEC5. 1000) Storage queue containing edited data points 
from EDIT and meteorological values from 
DRIVR1 . 

QFILE <l»j)= time since launch( seconds) 
QFILE(2»j>= frequency datum (Hertz) 
QFILE(3.j)= X coordinate (meters) 
QFILE(A»j>= Y coordinate (meters) 
QFILE(5.j)= Z coordinate (meters) 
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CALLING ROUTINES - EDIT, DRIVER 




i *' 


COMMENTS 

1. Subroutine ADD1 initializes the queue pointers 
used by all the other queue access routines} 

ADD2, REMQV1, REM0V2, REWRT . Therefore ADD1 
nust be called at least once before to be called* 

2. LNGTHG Must be changed when GFILE is r edinensioned 

3. To set up queue for use in METROCt 

IHEAD1=ITAIL1«< headstart) 

IHEAD2=ITAIL2=1 

where (headstart) is just large enough to prevent queue2 
fron catching up to queuel in DRIVER* Finding an 
adequate headstart nay require repeated trials with 
real flight data, so prgn nay need Modification to 
allow the initial values to be changed at run tine. 

CHANGES 

ADD1 is a new routine and was not part of METROC-K. 

COMPILED 6/20/82 

REFERENCES 


SUBROUTINE ADDl <D,FULL) 

INCLUDE 'RCQMMQN.SA. 1 ' 

DIMENSION D<5) 

DATA IPASS/ 1/ 

IF (IPASS .EQ . 1 > THEN 
IHEAD1=10 
ITAIL1=10 
IHEAD2=1 
ITAIL2=1 
LNGTHQ- 20 00 
IPASS=0 
END IF 
FULL=-1 * 

& IF ( IHEAO 1 . EQ . IT AIL2 ) THEN }if head has reached tail 

FULL=1* }of queue2 , queuel is full 

RETURN 
END IF 
DO 10 1=1,5 

GFILE ( I , IHEAD1 > =D (I ) 

10 CONTINUE 

IHEAD1=IHEAD1+1 

IF (IHEAD1.GT, LNGTHQ) IHEAD1=1 
END 


SUBROUTINE ADD2 <D,FULL) 


For docunentation see AD01 


INCLUDE ' RCOMMQN ♦ SA l 1 ' 
DIMENSION D<5) 

FULL*-1 . 

IF (IHEAD2.EQ.ITAIL1) THEN 
FULL=1 « 

RETURN 
END IF 
DO 10 1=1,5 

QFILE ( I , IHEAD2 ) =D ( I ) 

10 CONTINUE 

IHEAD2=IHEAD2+1 

IF <IHEADL»GT . LNGTHQ) IHEAD2=1 
END 



0001 SUBROUTINE ADVANC < JJ.TSTOP.TLANCH.TGMDAQ.MASK) 

0002 * 

0003 xxxxxxxxxx******************** COMMON BLOCK xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

0004 x 

0005 INCLUDE 'COMMON. SA' 

0006 x 

0007 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXX xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

0008 C 

000? C ADVANCE , 5 NEW RAW DATA POINTS. 

0010 x 
0 0 1 1 C 

0012 MASK=0 

0013 C 

0014 DO 2 JI=1,5 

0015 J5= JI+5 

0016 TIME ( JI ) =TIME ( J5 > 

0017 FREQ * JI ) =FREQ( J5) 

0018 AZ ( JI > -AZ ( J5 > 

0019 EL(JI>=EL< J5) 

0020 2 CONTINUE 

0021 x 

0022 xxxx HANDLE REAL TIME DATA xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

0023 4887 DO 3 J=6,1Q 

0024 3223 IF (IFLAG »GT. Q)GQTO 3224 

0025 CALL STOPER 

0026 IF (ISTPER .NE. 1 ) GOTO 3223 {IF STOP IS HIT ISTPER*1 

0027 MASK=4 

0028 RETURN 

0029 3224 INTMSK=1 

0 030 IF (IBOT .GE. 150)IE;QT=0 {IE'.OT POINTS TO OLDEST NOT YET PROCESSED POI 

0031 IDUM=IBOT*10 

0032 IEiOT=IBQT+l } THE IDATA ARRAY IS ONLY 75 POINTS LONG 

0033 IFLAG=IFLAG-1 

0034 DUMMY-ID AT A ( IDUM+9 > 

0035 DUMMY1=IDAT A < IDUM+ 1 0 > 

0036 FREQf J>=<DUMMY*10Q0>+DUMMY1 

0037 DUMMY=IDATA(IDUM+6> 

0038 DUMMYl=IDATA(IDUM+5> 

0039 EL ( J ) =DUMMYl + < DUMMY* . 01 ) 

0040 DUMMY=IDAT A ( IDUM+8 ) 

0041 DUMMYl=IDATA(IDUM+7> 

0042 AZ ( J) -DUMMY 1+ ( DUMMY* .01) 

0043 DUMMY=IDAT A ( IDUM+4 ) 

0044 DUMMYl=IDATA(IDUM+3) 

G045 SECS=DUMMY1+ ( DUMMY* . 1 > 

0046 DUMMY-IDATA (IDUM+2) 

0047 AMINU=DUMMY*6Q . +SECS 

0048 HOURS=<IDATA(IDUM+l> >*3600. 

0049 TIME ( J ) =HOURS+AMINU-TLANCH {TIME IS IN SECONDS FROM LAUNCH 

0050 IFdNTMSK .EG. 1 > GOTO 444 

0051 CALL GETBCK 

0052 444 INTMSK=0 

0053 IF (TIMEC J> .LT. TIME ( J-l >> GOTO 5 

0054 DUMMY=TIME ( J-l > +60 . 

0055 IFCTIME(J) .GT. DUMMY > GOTO 5 

0056 * 

0057 xxxxxxxxxxx REAL TIME DATA NOW IN PROGRAM xxxxxxxxxxxxxx 

0058 2204 IF (EL< J) .GE. 90,0) EL{J)=,1 


21 


w 
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0059 IF ( EL ( J ) .LT. 0.1)EL(J)=.l 

0060 IF ( AZ ( J ) .GE. 360,0) AZ<J)=.l 

I 0061 IF <AZ( J) «LT. 0 . 1 ) AZ< J)=. 1 

{ 0062 IF <FREQ( J) , LT » 1.0) GOTO 5 J REAL DATA IS SOMETIMES 0.0 

0063 FREQ < J ) =1 / < FRED (J)*. 000001) ‘.DATA COMES IN IN USEC 

f 0064 * 

] 0065 IF (FREQ(J) ,LT . 4,8 .OR. FREQ(J) .GT. 200. )GO TO 5 

‘ 0066 GO TO 3 

0067 5 J=J-1 

} 0068 3 CONTINUE 

I 0069 IF (TIME< 9) .GT. TSTOP) GOTO 100 

0070 * 

0071 * INCREMENT TABLE AND ENTER GMD ANGLES 

0072 * 

0073 51 IF ( TIME ( 4 > .LT. UL(l.LIST)) GO TO 53 

0074 IF (TIME<4) .LT. TGMDAQ ) GO TO 52' 

; 0075 xxxxxxxxxxxxxxxxxxxxx CALL ANGLE xxxxxxxxxxxxxxxxxxxx 
l 0076 CALL ANGLE 

0077 UL<2,LIST)=AZ<5) 

t 0078 VL ( 3 , LIST ) =EL ( 5 > 

1 0079 52 LIST=LIST+1 

0080 IF (LIST .GE. 120)GOTO 128 }UL TABLE IS FULL 

, 0081 VL (1, LIST )=VL(1, LIST-1 )+DLIST 

; 0082 GO TO 51 

’ 0083 53 CONTINUE 

0084 RETURN 

* 0 085 x 

1 0086 82 CONTINUE 

0087 C 

, 0088 C END OF DATA 

0089 C 

0090 MASK=2 

0091 RETURN 

0092 C 

0093 100 MASK=1 

0094 RETURN 
j 0095 C 

? 0096 128 MASK =3 

J 0097 RETURN 

0098 END 

] 0099 


j 

I 

I 


I 
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9/28/82 CHRIS BURKS 

purpose: 

'CLBSET' MODIFIES THE TCBEAD AND RCSOND 

ARRAYS FOR LATER USE BY THE SUBROUTINE 'FRQTMP' . 

IT TAKES THE LOGARITHM OF RCSOND AND CONVERTS 
TCBEAD FROM CENTIGRADE TO KELVIN. 

LOCAL variables: 

I LOOP INDEX 

SAV TEMPORARY STORAGE 

COMMON variables: 

NCBEAD NUMBER OF THERMISTOR CALIBRATION POINTS 
NCSOND NUMBER OF SONDE CALIBRATION POINTS 
RCSOND (25) SONDE CALIBRATION DATA 
TCBEAD (10) THERMISTOR CALIBRATION DATA 

CHANGES MADE: 

1 * PUT ALL COMMON VARIABLES INTO FILE 'RCOMMON.SA' 

AS DESCRIBED IN 'MDOS FORTRAN REFERENCE MANUAL', P.1-6 

2. ADDED 'SAV' VARIABLE BECAUSE FUNCTIONS 

WILL NOT ACCEPT SUBSCRIPTED VARIABLE ARGUMENTS 

3. ADDED THIS DOCUMENTATION 

MODIFICATION IS FINISHED 
WILL COMPILE 
HAS NOT BEEN RUN 


SUBROUTINE CLBSET 
INCLUDE ' RCOMMON .SAJI' 

DO 10 I = 1, NCSOND 
SAV = RCSOND (I) 

10 RCEQND ( I ) = ALOG(SAV) 

DO 20 I = 1, NCBEAD 
20 TCBEAD (I) = TCBEAD(I) + 273,16 
RETURN 
END 
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SUBROUTINE DIRSIT ( IDRSIT , NDRST * LTHF'l , LTHF‘2 , LTHT , TIN , XIN * 

TOUT , XOUT , VOUT , AOUT , ISLIDE , ISWTCH ) 

Provides smoothed sonde positions and temperatures as well as 
their first and second derivatives Velocities and accelerations)* 


DUMMY VARIABLES 

IDIRSIT A switch to indicate when smoothed data is available 
to DRIVER and to control initialization. Values: 
l=initislize coefficients in smoothing equations* 

2=add raw data point to time and position arrays 
(raw data) in POSFIT . 

3=add raw data point to time, position, and 
temperature arrays. 

A=add points to all above arrays and process all 
derivatives} return smoothed data* (all arrays 
are filled - enough points available to start 
processing) 

NDRST Switch to indicate whether temperature data will be 
processed. Possible values) 

3=wind-only data run* therefore only position data 
will be smoothed 

A=both position and temperature data will be smoothed* 

LTHP1 Smoothing interval length to obtain velocity in POSFIT * 

LTHP2 Smoothing interval length to obtain acceleration POSFIT, 

LTHT Smoothing interval length for temperature and its 
first and second derivative. 

TIN Time of raw data point. 

XIN<4> Raw X,Y,Z and temperature coordinates that are input to 
subroutine on this call* On return XIN equals the raw 
data at time TOUT. 

XOUT(^) Smoothed X»Y,Z and optionally temperature 
calculated at time TOUT. 

VOUTV) First derivative of position and optionally temperature 
calculated at time TOUT. 

AQUT(4) Second derivative of position and optionally temperature 
calculated at time TOUT. 

ISWTCH Switch Values: 

0=IDRSIT switch will not be changed by DRIVER* 
1=IDRSIT Switch will be set equal to 3 by DRIVER 
so that proper logic path will be taken. 

INTERNAL VARIABLES 

ICNTPl Index into raw data arrays X,Y,Z indicating where 
the raw data is to be stored 

ICNTP2 Index into the midpoint arrays (XMID, YMID, ZMID) 
and velocity arrays (XVM, YVM, ZVM) where new 
data is to be stored 

LTHTSK Total number pv frequencies to store for 
synchronization with POSFIT output 

NSKIF* Number of raw data points which will be passed to 
TMPFIT in order to assure that the smoothed data 
are calculated for the same time point. 

CALLING ROUTINE - DRIVER 


SUBROUTINES CALLED - POSFIT, TMPFIT 
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CHANGES OF POOR QLAUV, 

Identical to METROC-K version 

COMPILED S/22/83 

DIMENSION XIN < A ) , XOUT ( 4 > , VOUT ( 4 ) , AOUT ( 4 ) 

GO TO (10,100,200,200) IDRSIT 

INITIALIZE 

10 ICNTT»Q 
ICNTF'1=Q 
ICNTF'2=1 

CALL POSFIT ( IDRSIT , TIN , XIN , TOUT , XOUT , VOUT , AOUT , ICNTF'l , ICNTF'2 , 

LTF'Hl . I 5 HP 2 , ISLIDE , ISWTCH ) 

IP ( NDRST ,££<• 4 ) CALL TMF'FIT ( IDRSIT , TIN*, XIN < 4 ) , TOUT 1 , XOUT ( A > , 

VOUT ( ^ ) , AQDT (^ ) ,ICNTT ,LTHT , ISLICE) 

IDRSIT=2 

IF ( NDRST. EO.^O GO TO 30 

WHEN ICNTP1=LTHP1 THE RAW DATA ARRAYS ARE FULL, THEREFORE THE 
MIDF’T AND VELOCITY ARRAYS CAN F.:E CALCULATED, 

15 IF (ICNTF'l .EQ.LTHP1 > GO TO 18 
ICNTF’1=ICNTP 1 + 1 
GO TO 19 

18 ICNTF'2=ICNTP2+1 

19 CALL P0SFIT( IDRSIT, TIN, XIN, TOUT, XOUT, VOUT, AOUT, ICNTF'l, 

ICNTF‘2 , LTHF'l , LTHF'2 , ISLIDE , ISWTCH ) 

IF < NDRST, NE.4) GO TO 20 
ICNTT=ICNTT+1 

CALL TMF'FIT ( IDRSIT ,TIN , XIN( ^ ) ,TOUTl , XOUT ( A ) , VOUT ( A ) , AOUT ( A ) ,ICNTT , 
LTHT, ISLIDE) 

20 ISWTCH=1 
RETURN 

PROGRAM ASSUMES LTHF’l + LTHF'2 WILL BE GREATER THAN LTHT , NSKIT = 

HOW MANY RAW DATA POINTS WILL NOT BE PASSED TO THE TMF'FIT 
SUBROUTINES IN ORDER TO ASSURE THAT THE SMOOTHED DATA ARE 
CALCULATED FOR THE SAME THIME POINT. 

30 NSKIF’= ( LTHP1+LTHP2-LTHT-1 ) /2 

LTHTSK = TOTAL NUMBER OF FREQUENCIES TO STORE FOR 
SYNCHRONIZATION WITH F'OSFIT OUTPUT. 

LTHTSK=LTHT+NSKIF' 

100 IF (NSKIP.EQ.O) GO TO 15 

IF (ICNTP1.EQ. LTHF’l) GO TO 120 
ICNTF'l^ICNTF'l + l 
GO TO 125 

120 ICNTP2=ICNTF'2+1 

125 CALL F’OSFIT ( IDRSIT , TIN , XIN , TOUT , XOUT , VOUT , AOUT , ICNTF’l , ICNTF‘2 , 

& LTHF’l, LTHF'2, ISLIDE, ISWTCH) 

NSKIF'=NSKIF'-1 
IF(NSKIF’.NE.O) RETURN 
GO TO 20 

20(3 IF (ICNTF’l. EQ. LTHF’l) GO TO 220 
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ICNTP1=ICNTP1+1 " r 

GO TO 225 

. 220 IF ( ICNTP2 • EG) . LTHP2 > GO TO 225 

ICNTP2=ICNTP2+1 


IF ALL ARRAYS NEEDED ARE FULL THE SMOOTHED POINT WILL PE 
CALCULATED. 

225 IF ( ICNTF‘1 . EG) ♦ LTHP1 . AND . ICNTP2 . EQ. LTHF'2) IDRSIT=4 

CALL POSFIT ( IDRSIT f TIN , XIN , TOUT , XOUT , VOUT , AOUT , ICNTP1 , ICNTF’2 , 

& LTHP1 . LTHP2 , ISLIDE , ISWTCH' 

IFGNDRST .NE. A) GO TO 250 

IF (ISLIDE .GT . 1 .AND .ICNTT .EC) .LTHTSK .AND .ICNTP1 »LT .LTHP1 / GO TO 250 

IF ( ICNTT . EQ . LTHTSK ) GO TO 240 

ICNTT=ICNTT+1 

240 CALL TMPFIT ( IDRSIT * TIN . XIN < 4 ) » TOUT 1 1 XOUT < 4 ) ♦ UQUT ( 4 ) , AOUT ( 4 > , ICNTT , 
& LTHT, ISLIDE) 

250 CONTINUE 
RETURN 
END 
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ORIGfiV 

OF POOR OL/V.T/ 

SUBROUTINE DRIVER 
PURPOSE 

This subroutine takes as input the queue of edited data 
points created by EDIT. For each point, it calculates 
the uncorrected sensor tenperature. Then swoothes the 
tenperature data along with the 3 coordinates of the 
sonde (X,Y»Z). Calculates the first two derivatives for 
all four variables. Calculates the winds and relative air 
speeds. Calculates the corrected air tenperature. The air 
tenperature at 100 neter levels is saved for the second 
part of the subroutine. To conserve neMory, the air tenp- 
-erature is stored in the queue in place of the edited 
data points. 

In the second part of the subroutine, initial values 
of atnospheric pressure are found by 'tying' the lower 
end of the tenperature array to radiosonde data. Then 
the subroutine backsteps through the tenperature array, 
fron low altitude to high, calculating atnospheric 
pressure and density and printing out the neteorological 
data . 

INPUTS 

BRES = 30 WORD ARRAY. RADIOSONDE PRESSURES (MILLIBARS) 

BTMP = 30 WORD ARRAY, RADIOSONDE TEMPERATURES (DEG. CELSIUS) 

DRTEMP= 100 WORD ARRAY, DIRECT INPUT SENSOR TEMPERATURE 

DRTIM = 100 WORD ARRAY, DIRECT INPUT SENSOR TIME 

HEADER^ 14 WORD LAUNCH OPERATION LABEL 

IWIND = INTEGER SWITCH, 1 = RADAR DATA ONLY 

LALT * 30 WORD ARRAY, RADIOSONDE ALTITUDE IN DECAMETERS 

NQTEMP= SWITCH, 1 = NO DIRECT TEMPERATURES, -1 TEMP ON CARDS 

NPBL = NUMBER OF RADIOSONDE DATA 

NTPT = TOTAL NUMBER OF DIRECT TEMPERATURE POINTS 

TAPOG = TIME IN SECONDS AFTER LAUNCH OF MAXIMUM SONDE ALTITUDE 

TIME “ TIME IN SECONDS AFTER LAUNCH OF PRESENT DATA POINT 

ZAPOG = MAXIMUM SONDE ALTITUDE ENCOUNTERED IN RADAR DATA 

ZDD * UPWARD ACCELERATION COMPONENT OF SENSOR 

ZS * SMOOTHED ALTITUDE OF SENSOR (M) 

OUTPUTS 

HEADER, LALT, BTMP = PRINTED VALUE SAME AS INPUT VALUE 

ACC =800 WORD ARRAY, VERTICAL ACCELER ACTION AT 100M LEVELS 

AIRSPD = VENTILATION VELOCITY OF SONDE (M/S) AIRSPEED 

ALTD = ALTITUDE AT 100 METER INTERVALS, 800 WORD ARRAY 

ALTG = COMPUTED BASELINE TIE-ON ALTITUDE 

BETA = EXPONENT IN LINEAR TEMPERATURE MODEL 

BTPINT = R0CKE7S0NDE TEMPERATURE AT ZLOW 

CAE'-SB = TEMPERATURE CORRECTION FOR RADIATION ABSORPTION (DEG C) 
CAERO = TEMPERATURE CORRECTION FOR AERODYNAMIC HEATING 
CDYN = TEMPERATURE CORRECTION FOR DYNAMIC LAG DEGREE CELSIUS 
CEMIS = TEMPERATURE CORRECTION FOR RADIATION EMMISSION (DEG C) 

CK1 , CK2, CK3 , CK4 = KRUMINS COEFFICIENTS FOR TEMP, CORRECTION 
CTOTAL - TOTAL TEMPERATURE CORRECTION 

DAYNGT = FLAG INDICATES DAY OR NIGHT FOR SENSOR ( DAY=1 . ,NIGHT=-1 * ) 
DENS - AIR DENSITY COMPUTED AT PRESENT 10 QM LEVEL 
DRCTN = WIND DIRECTION IN DEGREE AZIMUTH 

DTP * TEMPERATURE DIFFERENCE BETWEEN PRESENT AND LOWEST TEMP 
EWW = 800 WORD ARRAY, E*ST-WEST WIND AT 100M LEVEL (M/S) 


nnnoooooooononooonnoooonnoonoonoooononnooooooonononnnononn 




OF rOiV.i Q.r/.jy-; 

PAGE 002 DRIVER .SA'.l 

FV = 800 WORD ARRAY, FALL VELOCITY AT 1Q0M LEVEL <h/S) 

G = GRAVITY COMPUTED BY FUNCTION GRVITY 

GAMMA = LAPSE TIME (DEG CELSIUS/METER) 

IL = INDEX OF TEMPERATURES 

K = INDEX OF RAWINSONDE DATA 

LEV * INDEX VALUE OF BASELINE TIE-ON LEVEL IN RADIOSONDE 
MIN = TIME IN WHOLE MINUTES AFTER LAUNCH AT PRESENT ALTITUDE 
SNW =800 WORD ARRAY, NORTHWARD WIND COMPONENT (100M LEVELS) 

PRES = ATMOSPHERIC PRESSURE (MB) COMPUTED AT PRESENT 100M 
RSZM = 30 WORD ARRAY, RADIOSONDE GEOMETRIC ALTITUDE 
ISEC = SECONDS CORRESPONDING TO MIN 

TAIR = CORRECTED THERMOMETER AIR TEMPERATURE (DEG. CELSIUS) 

TCOR =800 WORD ARRAY, TOTAL THERMOMETRIC CORRECTION 100MJS 
TI = CORRECTED MEASURED AIR TEMPERATURE (DEGREES KELVIN) 

TMFT =800 WORD ARRAY, CORRECTED MEASURED AIR TEMPERATURE (CELSIUS) 

TMPTRS = 1150 WORD ARRAY, AIR TEMPERATURE (DEG. K) STORED IN .5 
SECOND LIST FOR BACK-PROCESSING OF DENSITY AND 
PRESSURE 

WINDE = SMOOTH-DIFFERENTIATED RADAR EASTWARD WIND COMPONENT 
WINDN = SMOOTH-DIFFERENTIATED RADAR NORTHWARD WIND COMPONENT 
WINT = WIND MAGNITUDE (M/S) 

WTAU = TIME CONSTANT OF WIND SENSING SYSTEM ( PARACHUTE) 

XD = SMOOTHED EASTWARD VELOCITY COMPONENT 

XOLD = 800 WORD ARRAY, UNCORRECTED EASTWARD WIND 100M LEVELS 
YD = NORTHWARD VELOCITY COMPONENT OF SENSOR (M/S) 

YOLD =800 WORD ARRAY, UNCORRECTED NORTHWARD WIND 100 MJS 
ZD = UPWARD VELOCITY COMPONENT OF SENSOR (M/S) 

ZOLD =800 WORD ARRAY, UNCORRECTED UPWARD SENSOR VELOCITY M/S 

ZSKM = ALTITUDE (KM) • 

INTERNAL VARIABLES 

BI = OCTAL, BLANKS 

DENSS =800 WORD ARRAY, COMPUTED AIR DENSITIES AT 100M LEVELS 
LTHP1 , LTHF’2 , LTH = SMOOTHING INTERVAL LENGTHS 
MXTMP = MAXIMUM NUMBER OF ALTITUDE POINTS TOBE STORED AND 
BACK-PROCESSED 

PRESS =800 WORD ARRAY, COMPUTED ATMOSPHERIC PRESSURE 100M1S 
R = GAS CONSTANT 

' RECINP' IS THE INPUT RECORD FOR ONE TIME POINT 
RTOD = DEGREES PER RADIAN 

SCOPY = 13 WORD ARRAY, HOLDS PREVIOUS VALUE FOR DATA POINT 
WHEN COMPUTING TEMPERATURE AND X,Y,Z 1ST AND 2ND 
DERIVATIVES. 

TEMP = SMOOTHED SENSOR TEMPERATURE INTERPOLATED TO 100M LEVEL 

WM = AMEAN MOLECULAR WEIGHT OF AIR 

XDD = EASTWARD COMPONENT OF SENSOR ACCELERATION 

XS = SMOOTHED EAST COORDINATE OF SENSOR POSITION (M) 

ZDECRE = INTERVAL BETWEEN STORED VALUES OF PROCESSED DATA 

CALLING ROUTINE - MAIN 

SUBROUTINES CALLED 

GETEMP, FRQTMP , DIRSIT, WIND, KMNTMP , KMNTAB, GPTOM , GRVITY 

COMMENTS = REFERENCE 9METR0C-K ALGORITHMS? FOR MATHEMATICAL 
FORMULAE 

NONSTANDARD RETURN TO DRIVER WHEN 
MID-INDEX SEARCH VALUE EQUALS UPPER OR LOWER BOUND IN FRQTMP 

St 
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OR KMNTABJ OR END-OF-FILE ENCOUNTERED IN FLRDD. 

CHANGES 

This is an extensively modified version of the METRQC-K 
subroutine. The Modifications wade are} 

l.The edited data points cone fron the queue via subroutine 
REMQV1 instead of fron tape via FLRDD. Subroutine FLRDD 
has been elininated. 


INCLUDE 'RCOMMQN.SAil' 

DIMENSION RSZM ( 30 ) , DPNT < 5 ) » X ( A) 

DIMENSION XOUT < ^ ) » VOUT < ^ » AOUT ( ^> }snoothed data from DIRSIT 


All real constants stored in variables 


DATA PRS/0 . / , DNS/0./, BI/0./ 

DATA LTHPl/^il / , LTHF‘2/17 / , LTHT/25/ .ISLIDE/l/ 

DATA ZDECRE /-100.0/ 

DATA ZSLAST/0 ♦ 0/ 

DATA MXTMP /11S0/ 

DATA PI /3. 1415926/ }'pi' 

DATA RTOD / 57.295780/ {radians to degrees 

DATA WM/ 0.0289644/, R/ 8.31432/ 

DATA R999P9/999 « 9/ , RlF'/l./, R60P/60./, R1E3/1000./ 

DATA RZERO/0 ♦ / , R9P99/9.99/, R9P999/9 , 999/ , R99P99/99 . 99/ 
DATA R1E4/1 . QE4/ , R1E11/1 . 0E1 1/ , R273P1/273 . 16/ 

DATA RIO P/10 ./, R0F‘5/0 . 5/ , R3E3/3.0E3/, R1E2/1.0E2/ 

DATA R1E5/1.0E5/, R7E40 1/70 0 0 0 . 0 1/ 

DATA TRUE/1 ./,FALSE/-1 ./ ,'if' statnent recognises 

} >0 as true and <0 as false 

AIRSP0 = RZERO 
IPD » 0 
IJ = 0 
IK = C 
II = 0 

NDRST = 4 {no. of dirsit variables is 

IF (IWIND) NDRST=3 }3 for wirids-orily node. 

I = ZAP0G/( -ZDECRE) 

Z100M = I*<~ZDECRE) {first 100m level below apogee 

ZHIGH = Z10QM 


READ DIRECT TEMPERATURES 

The returned values are} 

NQTEMP =1 if no direct tenp are given 
-1 if direct tenp are given 
NTPT = the total nunber of direct tenp points given 
DRTEMP = array containing the direct tenp values 
DRTIM = array containing the corresponding tine values 


CALL GETEMP1 

IDRSIT=1 

LINES=50 

INDEX=0 

ISWTCH=Q 

IHEAD-1 


non p» po po po po po non nnnn 


DRIVER ‘.SAJI 


TAIL=1 

OLDAT A-FALSE 

WRITE (10,2400) HEADER 

WRITE < 10 , 2420 ) HEADER 


OF P' 


START OF EDITED DATA LOOP: GET PT FROM QUEUE 


20 CONTINUE 

CALL REMOVKF',EMTY) 
IF ( EMTY ) GO TO 160 


{get next data pt from queue 1 
♦no wore pts? goto radiosonde 


tie-on 


T 

X(l) 
X ( 2 ) 
X ( 3 ) 
X<4) 


P< 1) 
P < 3 ) 
P<4) 
P ( 5 ) 
P(2) 


(T.LT.TAPOG) 


before apogee, 


CONVERT FREQ TO TEMPERATURE 


IF (NOTEMP) THEN 
IF ( « NOT » IWIND) 

CALL FRQTMP ( 

T, 

X<4) , 

X<4> , 

FAIL) 

IF (FAIL) GO TO 20 
ELSE 

IF (T *LT »DRTIM< 1 ) ) GO TO 2 
DO 35 1=2 , NTPT Jsear 

IF < T , LE . DRTIM ( I ) ) GO TO 
CONTINUE 
CONTINUE 

X ( 4 ) =DRTEMP( I ) + (DRTEMPd- 
x(T~DRTIM(I) >/(DRTIM(I-l )~ 
IWIND = FALSE 
END IF 


{if no direct temps and 
{not a 'winds-only' run 
J change freq to sensor temp X(4) 
{time since launch 
{frequency input 
{sensor temp returned 
{search-fail flag 

{freq outside table? get another pt 
{if direct temps exist, then 
0 $ if 1st temp not passed get pt 
ch time array for data bracketing T 
40 


l)-DRTEMP(I) ) {interpolate temp to 

DRTIM(I)) {current time 

{be sure wind-only flag not set 


SMOOTH DATA AND FIND DERIVATIVES 


IF < ISWTCH ♦ EQ ♦ 1 ) IDRSIT =3 

CALL DIRSIT ( IDRSIT , NDRST , LTHF’1 , {smooth data and find derivatives 
LTHP2 , LTHT , T , X , TIME , XOUT , VOUT , AOUT , ISLIDE , ISWTCH ) 

IF ( IDRSIT ♦ NE , 4 ) GO TO 20 }idrsit=4 means enough pts for calc. 


XS 

YS 

zs 

TEMP 

XD 

YD 

ZD 

TEMPD 

XDD 

YDD 

ZDD 

TEMPDD 


XOUT ( 1 ) 
XOUT (2) 
XOUT ( 3 ) 
XOUT (4) 
VOUT ( 1 ) 
VOUT (2) 
VOUT (3) 
VOUT ( 4 > 
AOUT ( 1 ) 
AOUT ( 2 ) 
AOUT ( 3 ) 
AOUT (4) 


{put smoothed data into 
{common variables used by WIND 


MIN=TIME/R60P 


{minutes since launch for print 
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ISEC^TIME-MINXAO {seconds since launch for print 

ZSKM=ZS/R1£3 {altitude in Km for print 

IF (LOF’T.GE.2) THEN {is detailed printout wanted? 

CALL WIND ( WTAU . WINDN1 , WINDE1 , {calc winds for print 
& AIRSF' 1 , WINDT , DRCTN ) 

WRITE <10,2410) ZSKM , MIN , ISEC , {and list winds at every pt 
WINDE1 , WINDN1 , WINDT , DRCTN , 

XD, YD, ZD, WTAU 
END IF 

IF (ZS.LE.Z100M .AND* {if sonde just crossed 100m level 

OLDATA) THEN {and old data exists for interpolation 


CALCULATE WINDS AND TEMP AT POINT JUST BELOW 10 0M LEVEL 


CALL WIND < WTAU, WINDN1 , WINDE1 , {calculate winds and airspeed 
AIRSP1, WINDT, DRCTN) 

IF < . NOT .IWIND > {if not a 'winds-only' run 

CALL KMNTMP < TAIR1 , CAEROl , CDYN1 , {find air temperature 
CEMIS1 , CABSB1 , AIRSP1 ) 


CALCULATE WINDS AND TEMP AT POINT JUST ABOVE 100M LEVEL 


CALL SWAP (SCOPY) {swap old data into XS , YS , . . . TEMF’DD 

CALL WIND (WTAU ,WINDN0 .WINDED , {find wind components S. airspeed 
AIRSPO .WINDT, DRCTN) 

IF < .NOT. IWIND) {if not a 'winds-only' run 

CALL KMNTMP < TAIRO , CAEROO , CDYNO , {find air temperature 
CEMISO , CABSBO , AIRSPO ) 

CALL SWAP (SCOPY) {swap old data back out of XS,YS,.«. 


INTERPOLATE DATA TO 100M LEVEL 


50 CONTINUE {begin interpolation loop 

£ATI0 = (Z1QQM-SCOPY ( 4 ) ) /<ZS- SCOPY < 4 ) ) 

TlOOZ = SCOPY(l) + RATIO* <TIME~SC0PY<1> > 

XQLD = SCOPY (6) + RATI0*<XD~SC0PY<6> ) 

YOLD = SCOPY (7 ) + RATIO* < YD-BCOPY (7 ) ) 

ZOLD = SCOF'Y ( 8 ) + RATI0*(ZD-SC0PY(8) ) 

FV = -ZOLD 

EWW « WINDE0 + RATIO* ( WINDE1 -WINDED ) 

SNW = WINDN0 + F(ATIO*< WINDN1-WINDN0 > 

ACC = SCOF'Y < 12) + RATIO* (ZDD-SC0PY< 12) ) 

CALL KMNTAB ( Z1 0 0M , CK1 , CK2 , CK3 , CK4 , T1 0 0Z , FAIL ) 

IF (FAIL) THEN 
CK1 = R9P99 
CK2 = R9P999 
CK3 = R999P9 
CK4 = R99P99 
ELSE 

CK1 » CK1 * R1E4 
CK3 = CK3 * R1E11 
END IF 

IF (IWIND) THEN 

WRITE (10,2010) ZSKM.CK1 . CK2,CK3,CK4 
ELSE 

TSEN = SCOPY (5) + RATIO* (TEMP-SCOPY ( 5) > 

TCOR - TAIR - TSEN 

CAERO = CAEROO + RATIO* ( CAEROl-CAEROO ) 
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CDYN = CDYNO RATIO* (CDYN1-CDYN0 ) 

CEhlS * CEhlSO + RATIO* < CEMIS1-CEMIS0 ) 

CABSB = CABSB 0 + RATIO* < CABSB 1 -CABSB 0 ) 

TAIRC * TAIR - R273P1 fair temp in Celsius 

TSENC = TSEN - R273P1 {sensor temp in Celsius 

WRITE (10.2430 ) ZSKM, TAIR. TSEN, {temp data printout 
TCOR , C AERO , CDYN , CEMIS , CABSB , 

CK1 ,CK2,CK3,CK4, DAYNGT.TAIRC, TSENC 
END IF 


SAVE AIR TEMPERATURE FOR PRESSURE AND DENSITY CALCULATION 


M(1)=EWW 

M(2)=SNW 

M(3)=Z100M 

M(4)=TAIR 

M(5)=TSEN 

CALL ADD2 (M.FULL) 

IF (FULL) THEN { 

PRINT 2000, Z100M { 

2000 FORMAT ( ' *** QUEUE OVERFLOW IN DRIVER' , 

' AT ALTITUDE Z100M=' ,F6, 0 , ' METERS') 

STOP 
END IF 

ZLOW « Z100M {save lowest level reached 

Z100M = Z100M + ZDECRE {decrement 100 m level 
IF (ZS.LE.Z100M) GO TO 50 {new level bracketed? interpolate again 
END IF 

CALL SWAP (SCOPY) {save old smoothed data in SCOPY 

OLDATA = TRUE {set 'old data available'f lag 

GO TO 20 {get another edited data point 


END OF EDITED DATA PROCESSING LOOP 


RADIOSONDE TIE-ON 


10C CONTINUE 

160 IK=INDX 

WRITE (10,2432) 

2432 FORMAT ( /1 0 X , ' ***** NO TEMPERATURE CORRECTION A', 

& ' PPLIED OUTSIDE THE KRUMINS TABL' , 

& 'E RANGE <20-70 KM) ***#*'////) 

INDX=INDX-1 

IL^INDX 

IF ( IWIND ) GO TO 1166 

DO 161 I = l.NPBL 

ISTORE = LALT(I) * R10P 

ISTORE = GPTOM (ISTORE, XLAT > + R0P5 

RSZM(I) = ISTORE 

161 CONTINUE 
ALTG=R2£R0 

C 

C *SCAN DATA FOR ERRORS, LINEAR INTERPOLATION OF TEMPERATURE GAPS 
C+ LESS THAN 3 KM 

C ♦ , CHECK 3— KM GAP BETWEEN R/S AND ROCKETSONDE 
K=1 

IF ( ( ZLOW-RSZM ( 1 ) ) . GT . R3E3 ) GO TO 1166 


♦ ♦ ♦ ♦ 
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IF ( ZLQW , GT * ( RSZh ( 1 ) +R1E2 ) > GO TO 11A4 
WRITE (10,2160) 

2160 FORMAT (1A1) 

WRITE ( 10,2161) 

2161 FORMAT ( ///15X , ' RAWINSONDE ' , 30X , ' ROCKETSONDE ' , 22X , 'TEMP, DIFF' ,2X, 

AX , ' INTERPOLATED ' /2X , 

'LEVEL METERS' ,7X,'G' , 8X , 'BTMP' , 10X , 'PT , ' ,5X , 'ALT' ,6X,'TMPTRS' 
6X, 'ThPT' , 12X, 'DTP' ,?X, 'BTMP AT ALT,') 

K=NPBL 

. LOOK FOR TWO CONSECUTIVE R/S LEVELS WHICH BRACKET ZLnW.... 

1 1 A 0 IF ( ZLOW * LT , RSZM ( K ) > GO TO 11A1 
K=K-1 

IF(K.GE.l) GO TO 11A0 
11 A1 KK*K 
K=K+1 

IF ( KK ♦ LE ♦ 0) KK=K+1 

... CHECK 2.5 DEGREE DIFF, BETWEEN ROCKETSONDE TEMP, AT ZLOS AND 
THE CORRESPONDING R/S TEMP, IN THE R/S BRACKET..., 

1 1 A2 BTPINT*BTMP ( KK ) + < BTMP ( K ) -BTMP < KK ) ) * ( ZLOW-RSZM ( KK ) ) / ( RSZM ( K ) - 
& RSZM (KK ) ) 

STORE = BTPINT - DFILE(1,IL> + R273P1 
DTP = ABS( STORE) 

ALTD = ALTI ( ZHIGH , ZDECRE , IL ) 

STORE ■ LALT (K)xRlOP 
TAIRC = DFILE(1,IL)-R273P1 

WRITE ( 10,2162) K,RSZM(K) , STORE, BTMP(K) ,IL, ALTD, 

« TAIRC, TAIRC, DTP, BTPINT 

2162 FORMAT (3X,2(IA,3F10.2, 8X ) ,F8.2,10X ,F10 .2) 

1143 LEV=K 

AL i'G=RSZM ( K ) 

GO TO 1165 

C... PREFORM LINEAR INTERPOLATION ON TEMP, TOFILL THE TEMP GAP WHERE 

C THE ALT. GAP BETWEEN R/S AND ROCKETSONDE IS LESS THAN 3KM .... 

1 1 WRITE (10 9 2163 ) 

2163 FORMAT < /10X , '*** THE FOLLOWING INFORMATION ARE RELA', 

& 'TED TO INTERPOLATION DUE TO N', 

& '0 OVERLAP WITH R/S ***') 

LEV-1 

ALTG=RSZM(1) 

DTMP= ( DFILE ( 1 , INDX ) -BTMP ( 1 ) -R273P1 ) / ( ( ZLOW-RSZM ( 1 ) ) /R1 E2 ) 

1155 INDX=INDX+i 
IL=INDX 

ZLOW-ZLOW+ZDECRE 
ISTORE * INDX - 1 

DFILE ( 1 , INDX ) =DFILE ( 1 , ISTORE ) -DTMP 
IF ( ZLOW . GE . ( RSZM ( 1 ) +R1E2 ) ) GO TO 1155 
K=0 

GO TO 1141 

1165 IF ( LEV . EQ . 0 ) GO TO 1166 

IF ( ALTG.GT .RZERO) GO TO 167 

1166 LEV=0 
IL-1 

WRITE (10 ,2168 ) 

2168 FORMAT (////10X,8O( '*' )/,10X, '*** NO PRESSURE AND DE' , 

& ' NSITY COMPUTATION DUE TO FAILURE ON 2.5 DEG', 

& 'REE TEST OF TEMPERATURE x**'/10X, £Q( '*')////) 

I=K-1 

STORE = LALT ( I ) * R10P 


PAGE 008 DRIVER 


SA • 1 


IF(K.GT.l) WRITE < 10,2162) I,RSZM(I> ,STORE,BTMP(I) 

C 

O ^COMPUTE GRAVITY, PRESSURE AND DENSITY 

PRS=BI 
DNS=BI 

ZLOW=ALTI<ZHIGH, ZDECRE, IL> 

DO 168 I=IL , INDX 
II=INDX-I+IL 
PRESS ( II )=PRS 
DENSS ( II ) =DNS 
168 CONTINUE 
LN=50 

IF(IL.GT.l) GOTO 1167 
IXS-INDX 
GO TO 206 
1167 CONTINUE 
C 

GAMMA = RZERO 
G = GRVITY (ZLOW) 

BETA = RZERO 
TAIR = DFILE< 1 ,IL) 

BTMPK=BTMP ( K ) +R273P1 
PRES=BPRES < LEV > * ( TAIR/BTMPK ) ** 

fi ( (-WM*GRVITY( ZLOW)* (ZL0W-RSZM( LEV) ) ) / ( R* ( TAIR-BTMPK ) ) ) 

IXS=I.NDX 
NKPT = 1 
I = IL 
GO TO 180 
C 

C BACK STEP THRU THE ARRAY OF TEMPERATURES 

170 CONTINUE 
1 = 1-1 
PRS=RZERO 
DNS=RZERO 

IF (I « EQ * 0 ) GO TO 200 
TAIR = DFILE (1,1) 

ZLOW = ZLOW - ZDECRE 

GAMMA * (TAIR - TAIRl ) / (-ZDECRE) 

G * GRVITY (ZLOW) 

BETA = -WM*G / ( R*GAMMA ) 

PRES = PRES1 * (TAIR/TAIR1 ) ** BETA 
180 DENS = PRES*WM / ( R*TAIR ) 

DENS=DENS*R1E5 
ZSKM = ZLOW / R1E3 

C ALL FACTORS ARE READY FOR PRINT 

LINES = 0 

WRITE (10,2450) HEADER 

TAIRl = TAIR 

PRES1 = PRES 

IPD=1 

PRS=PRES 

DNS=OENS 

ALTD = ALTKZHIGH, ZDECRE, I) 

IF (ALTD »LT , R7E401) GO TO 193 
DNS=R999F9 
PRS=R999P9 
193 CONTINUE 

PRESS ( I > = PRS 
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DENSS < I ) * DNS 


NORMAL TERMINATION 

200 IF(IPD.EG. 0 > GO TO 202 
GO TO 206 

202 CONTINUE 

ALTD = ALTKZNIGH,ZDECRE,I> 

IF < ALTD .LT. R7E401) GO TO 203 

PRS=BI 

DNS=BI 

203 CONTINUE 

IF <1 .GT. 798) GO TO 204 
PRESS (I ) =PRS 
DENSS <I> =DNS 
IK = I 

204 CONTINUE 
INDX=IK 
GO TO 207 

206 CONTINUE 

IF (IWIND) GO TO 207 
INDX=IXS 

207 CONTINUE 

IFd.GT. INDX > GO TO 174 
PRS-PRESS ( I > 

DNS=DENSS ( I > 

IF < IWIND ) DFILE (1,1) =DFILE (1,1) +R273P1 
TI(I) = DFILE (1,1) - R273P1 
NKPT = NKPT + 1 
LN=LN+1 

IF ( LN ♦ LE ♦ 40 ) GO TO 210 
LN = 0 

WRITE (IO, 2462) 

2462 FORMAT (1H1,? ALT EWW SNW FV TMP(C) PRS?, 

BX,?DNS ACC XOLD YOLD ZOLD TCOR GAMMA C/M 

? BETA GRAV? ) 

ALTD = ALTI ( ZHIGH , ZDECRE , I > 

210 WRITE ( IO , 2463 > ALTD, EWW < I ) , SNW ( I ) , FV ( I ) ,DFILE( 1 , 1 ) -R273P1 ,PRS , 

DNS , ACC ( I ) , XOLD (I) ,YQLD(I) , ZOLD (I) ,TCOR(I) , GAMMA , BETA ,G 

2463 FORMAT ( IX , F7 * 0 , F8 . 2 , 5F9 ♦ 2 , F8 . 2 , 4F9 . 2 , E12 , 3 , IX , 2F7 . 2) 

CONTINUE LOOPING UNTIL ALL DATA IS PROCESSED. 

WHEN IWIND = 1 , THIS IS A WINDS ONLY CASE, 

THE PROGRAM MUST NOT BE ALLOWED TO BACKSTEP THRU THE ARRAY OF 
TEMPERATURES. STATEMENT 170 

INSTEAD REDUCE THE COUNT BY 1 AND GO TO STATEMENT 207. 

174 CONTINUE 

IF (( .NOT. IWIND) .AND. (I .GT. 1 )) GO TO 170 
IF ((IWIND) .AND. (I .GT. 0 )) I * 1-1 
IF ((IWIND) .AND. (I .GT. 0 )) GO TO 207 

175 CONTINUE 

176 CONTINUE 
RETURN 
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C 

2400 FORMAT ( ' 1FLIGHT IDENTIFIER# ', 14AA// 

' ALT,', 4X, ' TIME ' , 1 OX , 'WIND (MET/SEC, DEG > ' , 

9X , ' VELOCITY ' , 6X , ' AIRSPEED RESPONSE ' / 

' (KM > < MINtSEC ) EAST NORTH TOTAL DRCTN ' , 

4X f ' EAST NORTH ' , 4X , ' UF* ' , 13X , ' ( SEC > ' / ) 

2410 FORMAT (IX, F5.2, IX, 12, F5.2, 3(1X, FA . 1 > , 

', ', F5.1, IX, 4 ( IX , F6.1), 4X , F5.1, AX, I3,F9.3> 

2420 FORMAT ( ' 1FLIGHT IDENTIFIER* ', 14A6 // 

' ALT, TEMPERATURE ( K > ' , 1 IX ' CORRECTIONS ' , 

15X, 'KRUMINS COEFFICIENTS' ,14X, 'TMPRTRE (CELSIUS)'/ 

' (KM) ' ,4X, 'AIR SENSOR ', 

'TOTAL AERO, DYN, RAD ( OUT/IN) ' , 3X , 

' K1*E4 K2', 4X , ' K3*E1 1 1(4 DAY/NIGHT AIR SENSOR'/) 

2430 FORMAT (1X,F4.1,1X,2(2X,F5.1),2X,5(1X,F5.1), 

& 3X , F4.2, 2X, FS.3, 2X, F6.2, 2X,. F5.2, AX, A1 ,4X,2(2X,F5. 1 

2010 FORMAT (' ' , F4 . 1 ,50X , F4 . 2 , 2X , F5 . 3 , 2X , FA . 2 , 2X , F5 . 2 ) 

END 
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* 

SUBROUTINE EDIT 


Or fw 


PURPOSE 

This subroutine retrieves the *1 second raw data fron the 
input queue as it becones available# averages sets of NAVG 
raw points into clean edited data points# and adds then 
to the edited data queue. 


CONSTANTS 

DINERT 


INOISE 

IREF 

ISIG 

IUHB 

IUHT 

TSTOPt 


"inert" value. A large constant# alternately 
positive and negative# which is substituted for 
the frequency datun of noisy or reference 
points. The filter DIRSIT will "coast" 
(quadratically extrapolate) through these 
unaffected by their anplitude. 

=1. Value of dat-classif ic-ation flag indicating 
noise 

=2. Value of dat-classif ication flag indicating 
reference signal 

-3. Value of data-classif ication flag indicating 
thernistor signal 

Botton index of upper half of DSTOR 

Top index of upper half of DSTOR 

Stop tine plus 12# METRQC requires a 12 second 

buffer at the end of the data to be processed 


INTERNAL 

BLWR 

BND 

BUPR 

D 

DIFERT 


VARIABLES 

Lower 


DSUBST 

DTRF 
GDAT A < 5 


EOD 


bound of tracking gate < Hertz) 

Upper bound of each overlapping 10Hz band 

used in searching for signal 

Upper bound of tracking gate (Hertz) 

Sonde frequency used to conpare against bounds 
of tracking gate (tenporary storage) 

Difference between the absolute values of 
a point's frequency value and the "inert" 
value* Used to detect if point has been 
given "inert" value. 


DSTOR ( 5 # 1 0 ) A 


0 point sanple 
DSTOR (1 # j) 

DSTOR (2 # j ) 

DSTOR ( 3 # j ) 

DSTOR ( j) 

DSTOR ( 


v > j 


I ) * 


of raw .1 second input data 
GMT tine of data pt (seconds) 
frequency datun (Hertz) 
azirtuth (degrees) 
elevation (degrees) 
range (Meters) 

Mean value of raw data points which lie 
in the tracking gate* Used as a substitute 
for points which lie outside the gate # and 
to adjust SIGLEV. 

Tine at Midpoint of reference interval. Used to 
calculate sums for least squares fit (ssne as TRF) 
A clean edited data point ready to be stored 
in the edited data queue 


EDATA(l) 
EDATA(2> 
EDATA(3 ) 
EDATA(A) 
EDATA(5> 
End-of-data 
1= flight 


tine since launch (seconds) 
frequency datun (Hertz) 

X coordinate of 
Y coordinate of 
z coordinate of 
flag returned by 
is over# no More 


sonde (Meters) 
sonde (Meters) 
sonde (Meters) 
ADVANC. Values: 
raw data cowing 


oooonnnnonononnonooooooooooooooriooooooononoonoonoononnonon 


/ 


PAGE 002 EDIT 


FULL 


I 

IE; 

IBND 

IFLAG 

INGATE< 10) 

1NTRVL 

ISKREF 

ISS 

IT 

J 

JR 


JRP 


KB 

KBL 

KBLL 

KBND ( 32 ) 

LOS 

NAFTR 

NGATE 

REF 

RS 

RSUH 


.SAJI 


ORIGINAL PAGE IS 
OF POOR QUALITY 


-1= nore data coning 
Full queue flag returned by ADD1. Values J 

1= edited data queue is full* current pt not stored 
-1= queue not full 
General DO loop index 
Index to botton half of DSTOR 

Index of nost populous 10Hz band in searching for 
signal . 

Data-classif ication flag. Indicates whether 
edited data point is noise <=1)» reference (=2), 
or thernistor signal (=3). Used for printout. 

In HET signal tracking* the flag indicating 
whether each .1 second data point in DSTOR ( 3, j) 
is in (=1) or not in ( = 0) the signal tracking 
gate. 

NuMber of points in the queue to be replaced 
with "inert" value, starting with last point 


put in. 

Used to coMpute initial points of signal to be 
skipped when replacing reference data with 
"inert" value. 

Signal point counter. Nunber of edited data 
points accepted as thernistor signal. 

Index to top half of DSTOR 
General DO loop index 

Reference point counter. Counts nuMber of ref 
points since last signal interval. JR=0 during 
signal interval. 

Reference interval counter . Counts nunber of 
reference intervals processed <at least 5 
consecutive reference points constitute a 
reference interval) 

Nunber of points in DSTOR with frequency 
less than upper bound E’-ND of 10 Hz band. 

Nunber of points in DSTOR with frequency 
less than BND - 5 Hz 

Nunber of points in DSTOR with frequency 
less than BND - 10 Hz <not initialized 
until BND = 25) 

In searching for HET signal* population in 
29 overlapping 10 Hz bands! KBND<3)= 20-30 Hz, 

KBND < 4 ) = 25-35 Hz, . . . , KBND (31 )= 160-170 Hz 
In tracking signal, nunber of edited noise 
points since last signal or reference point. 

(not used) 

Verify interval counter. Counts signal points 
after a reference interval, verifying ternination 
of the reference interval. 

1 plus the nunber of raw data points in DSTOR < 2, j) 
whose frequencies lie within the signal tracking 
gate ( SIGLEV+-HGATE ) 

Mean frequency of a reference interval (Hertz), 
excluding the first and last points. Used to 
coMpute sums for least squares fit to ref function. 
Frequency value of the last reference point in 
a reference interval 

Sum of frequency values in a reference interval, 
excluding the first point in the interval. Used 
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•for computing mean value over the interval . 

Time after launch of the second point in a reference 
interval (seconds) 

Time after launch of the next to last point in 
a reference interval (seconds) 

Time after launch of the most recent reference 
point received. Saved for RT2 if next point 
is also reference, discarded if last point in 
reference interval. 

Temporary sums for averaging raw .1 second data 
in bottom half of DSTOR to get edited point (EDATA) 
SUM(1> (not used) 

SUM(2)= sum of frequencies in DST0R(2»j) 

SUh(3)= sum of azimuths in DST0R(3»j) 

SUMM) = sum of elevations in DSTOR(A.j) 

SUM(5)= sum of ranges' in 0STOR(5,j> 

Accumulator for computing mean of frequencies 
within the gate when tracking signal. 

Elapsed time since launch of raw data (seconds) 
Average of frequencies in bottom half of DSTOR 
Used to tell if 170<=TEST<=200 . 

Elapsed time since TSTART of raw data (seconds) 

Used to detect starting point. 

Time at midpoint of reference interval, calculated 
between second and next to last edited pt in intrvl 

COMMON VARIABLES 

B(3) Accumulated parameters used by POLYFT to 

compute quadratic least squares fit to 
reference data. 

B(l)= sum of (ref interval frequency) 

B(2>= sum of (ref interval frequency * 
ref interval midpoint time) 

B(3)= sum of (ref interval frequency * 

(ref interval midpoint time>**2) 

£:T(5) Accumulated parameters used by POLYFT to 

compute quadratic least squares fit to 
reference data. 

BT(1)= number of reference intervals 
E'.T ( 2 ) = sum of (ref interval n* dpoiftt time) 

BT(3)= sum of srfcf interval midpoint time axZ) 

EiT(A) = sum of' (ref interval midpoint time x*3> 

BT(5)= sum of (ref interval midpoint time ***) 

HGATE Half-width of signal gate used for tracking 

thermistor signal (Hertz) 

101 Output device number for informative messages. 

Possible values. 

99= dummy device. No output occurs when used 
101= terminal display 
102= printer 

IWIND Winds-only flag. Possible valuest 

1= radar data only will be processed 
-1= temperature data will also be processed 
NAVG Number of raw data points averaged to obtain an 

edited data point (cannot exceed 1/2 the dimension 
of DSTOR) Was 5 in original program. 

SIGLEV Center frequency of signal gate used for tracking 

thermistor signal (Hertz). Starts at approximate 





JLl 
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TAPOG 

TSTART 


TSTOP 


r_ERO 

.rtPOG 


value (155) and is adjusted to follow signal. 

Tine in seconds after launch of maximum sonde 
altitude encountered 

Time in seconds after launch to start processing 
data (selected to occur after payload ejection) 

Tine in seconds after launch to stop processing 
data 

GMT launch time (seconds) 

Maximum sonde altitude (apogee) encountered (meters) 


SUBROUTINES CALLED 

ADYANC, TIHCHKt REHRT. RDRCRD, ADD1, POLYFT 
CALLED BY - MAIN 


TERMINATION CONDITIONS 

If number of reference intervals is less than 3/ prints 
'Error in Edit - Less than 3 reference values available' 
and stops 

If terminal 'S' key is pushed in ADVANC/ prints 
'End of real time processing' and returns 


If edited data queue is full/ prints 'Queue is full' 

'End of real time processing' and returns 

CHANGES 

This is an extensively modified version of the METROC-K 

subroutine EDIT. The modifications made aret 

1 . The raw data is input from the raw data queue via 
subroutine ADUANC, instead of from tape via 
subroutine INTAPE as in the old routine. 

2. All parts dealing with FSK time have been deleted. 

3. The "replacement A, E» R data" sections have been deleted. 

4. The number of raw data points in the average, 
previously 5, has been made adjustable with the variable 
NAVG. This allows run-time experimentation to determine 
the proper data rate to avoid exhausting queue capacity 
before the end of the flight. 

5. Edited data points are stored in the edited data queue 
by subroutine ADD1, instead of being stored on tape as 

in old routine. Array DFILE, which was used to accumulate 
data for writing to tape, has been eliminated. 

6. New subroutine REWRT accesses the queue to replace 
reference dwell frequencies with "inert" values. In the 
old routine this was done in array DFILE. 

7 . The order of statements in the subroutine has been changed 
around to "untangle" it and eliminate unnecessary GO TO 
statements. 


COMPILED 8/16/83 
REFERENCES 


INCLUDE ' RCOMMON .SAtl' 

DIMENSION D5TQR(5,10> {second dimension must be at least 2#NAUG 

DIMENSION INGATE(IO) {dimension must be at least 2*NAYG 

DIMENSION EDATA (5) » KBND(32) » SUM<5> 
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DATA NAFTRO/ 5/ 

DATA ISIG/ 1/, IREF/ 2/, 
IUHB=NAVG+1 
IUHT=2*NAVG 
TST0P1=TST0P+12. 

UK=0 

JR=0 

JRP=0 

IFRCK=0 

ISKREF=0 

NAFTR=0 

RSUM=0 . 

ISS = 0 

DINERT=999 . 99 

KBLL=0 

KBL=0 

LOS=0 

ZAPDG=0. 

DO 30 1=1,3 
C<J)=0. 

B ( J > = 0 • 

BT(J)=0. 

30 CONTINUE 
BT(4)=0. 

BT< 5 > =0 ♦ 


INOISE/ 3/ 

{lowest index in upper half of DSTOR 
{top index in upper half of DSTOR 
* prgn needs 12s buffer at end of data 
{edited data point counter 
{reference point counter 
{reference interval counter 
{noise point counter 

{verify interval counter 
{ref frequency accumulator 
{signal point counter 
{"inert" value 


{noise point counter 
{apogee altitude 
{suns and coefficients 
{for least squares fit 


READ TO START OF DATA 

AND FILL UPPER HALF OF DSTOR ARRAY 


40 


50 


CONTINUE 

DO 50 I=IUHE* , IUHT 
CALL ADUANC ( 
DST0R(1 ,1) , 
DSTQR(2,I) , 
DSTOR (3,1), 
DSTOR (4, I) , 
DST0R(5,I) , 

EOD ) 

IF (EOD) GO TO 200 


{get point from input queue, 

{time 

{frequency 
{ azimuth 
{elevation 
{range 

{end-of-data flag 

{no more data? end real time proc. 


TLAPS=DSTOR (1,1) -TZERO 

TDSTRT=TLAPS-TSTART {elapsed time since TSTART 

IF (TDSTRT.LT. 0.25) GO TO 40 {not past start time? start over 
CONTINUE 


The raw data points should come at ,1 second 
intervals. TIMCHK checks the time values and 
corrects any dropouts. If there are too many 
dropouts the program is stopped. 

CALL TIMCHK ( DSTOR , NAUG , 4 ) 


BEGINNING OF REAL TIME LOOP 


Each iteration the .1 second raw data 
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points in the top half of DSTOR are shifted 
to the botton half for processing, and a 
new set is put in the vacated top half by 
ADUANC. 

ADVANC gets a point fron the raw data 
queue? if there are none it waits for one to 
cone in. If the terninal's S key has been 
pushed, it returns EOD = 1, indicating that 
real tine processing is finished. 

The .1 second raw data points are processed 

in sets with NAYG points per set (in previous 

version NAVG was 5). Later each set 

will be averaged into a single edited data point. 


CONTINUE 
DO 80 IE)=1 , NAVG 
IT=IB+NAVG 
DO 70 J=1 ,5 

DSTOR < J , IB ) =DST0R < J , IT 
CONTINUE 
CALL ADUANC ( 

DSTOR ( 1 ,IT ) , 

DSTOR (2, IT ) , 

DSTOR (3,IT> , 

DSTOR M , IT ) , 
DST0R(5,IT> , 

EOD) 

IF (EOD) GO TO 200 
CONTINUE 

CALL TIMCHK ( DSTOR , IUHT , 5 > 
IF ( IWIND • EG • 1 ) GO TO 69 
IF ( JR.NE.0) GO TO 69 


{start of nain loop 

{get a set of raw data pts 

{shift point fron top half 
) {to botton half of DSTOR 

{get next pt fron raw data queue 
{tine 

{ frequency 
{azinuth 
{elevation 
{range 

{end-of-data flag 

{no nore data? end real tine proc. 

{if nore than 5 tine errors, abort 
{winds only? skip tracking gate 
{in reference? skip tracking gate 


TRACKING GATE PROCESSING 


664 CONTINUE 

BUPR=5IGLEV+HGATE 
IF (BUF'R.GT . 170 » ) BURR 
BLWR=SIGLEV-HGATE 
IF (BLWR.LT.20. ) BLWR 
NGATE=1 
SUMGTE=SIGLEU 
DO 671 J=1,IUHT 
INGATE( *J) = 0 
D=DST0R ( 2 , J ) 

IF ( D . LE . BUPR .AND. 
INGATE''. J)=l 
SUNGTE=SUHGTE+D 
NGATE=NGATE+1 
IF ( NGATE . GE . 6 ) GO 
END IF 

671 CONTINUE 

672 CONTINUE 


{tracking gate upper bound 
= 170. {170 is upper Unit of sig.freq 
{tracking gate lower bound 
=20. {20 is lower Unit of sig.freq 
{* of pts within gate + 1 
{SIGLEV is included in sun 
{check all 10 pts in DSTOR 

{frequency of point J 
D.GE.BLWR) THEN {if freq is within gate, 
{set in-gate flag of pt J 
{add freq of pt J to sun 
{increnent pt counter 
TO 672 {only average first 5 pts in gate 


{exit fron loop {>5 pts in gate 


SIGNAL NOT IN GATE? SEARCH FOR SIGNAL 


IF ( NGATE . LE . 2 ) THEN 


{if 2 or less pts in gate, search 
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BND=2Q. 

IBND*1 

DO 662 1*1 ,31 
KB*0 
DO 661 J=1 ,IUHT 

661 IF<DST0R(2, J) .LT.BND 
KBND < I > “KB-KBLL 
KBLL*KBL 

KBL*KB 

BND=BND+5, 

IF (I.GE.3 .AND. 

KBND (I > .GT.KBNDdBND 

662 CONTINUE 

IF ( KEiND ( IBND ) . GE . 3 > THEN 
SIGLEV* < IBND+2 ) *5 
GO TO 664 
END IF 
TEST=0 . 

DO 665 K=1,NAVG 

TEST*TEST+DST0R(2,K> 
665 CONTINUE 

TEST=TEST/NAVG 
IF ( TEST .LT , 170 . .OR . 

TEST. GT. 200. ) THEN 
DO 663 K=1 , NAVG 

DSTOR ( 2,K>= DINERT 

663 CONTINUE 
DINERT =-DINERT 
LOS=LOS+l 

END IF 
END IF 


{search 29 overlapping 10Hz bands 
{ 20-30,25-35, ... ,160-170 Hz 

) KB*KB+1 


)) IE!ND=I 

{if search succeeded 0*3 pts) 
{shift gate to center of that band, 
{and go to fracking gate process* 

{if search failed (less than 3 pts), 
{ pnt is assumed to be ref or noise 


{wean freq of bottom half of DSTOR 
{if Mean falls outside ref range, 

{it is noise* In this case: 

{replace with alternating inert values 


{increment noise point counter 


SIGNAL IN GATE: ADJUST CENTER FREQUENCY 


IF (NGATE.GT ,2) THEN 
DSUBST =SUMGTE/NGATE 
LOS=0 

DO 673 J*1 , IUHT 


673 


{if > 2 pts in gate, signal in gate 
{mean freq of pts in gate 
{reset noise point counter 

{substitute mean freq 


IF ( INGATE (J) ,EQ. 0 ) DST0R(2, J)=DSUBST {for pts outside gate. 
CONTINUE 

S3JGLEV* ( 5IGLEV+DSUBST ) * 0 . 5 {adjust gate center freq 
END IF 


AVERAGE RAW DATA TO OBTAIN EDITED DATA POINT 


The set of .1 second raw data points in the 
bottom half of DSTOR will be averaged to obtain 
a single edited data point, EDATA, The number of 
raw points averaged is NAVG (was 5 in METRO C) 
so the sampling period of the edited points is 
NAVG * 0.1 second (was .5 sec in METRQC) 


69 CONTINUE 

JK = JK+1 {index to the edited data pts 

DO 700 J*l,4 {zero the sum array 

SUM ( J ) * o. 

700 CONTINUE 

DO 710 J*1 , NAVG 


{sum- data in bottom half 
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SUM(2) = SUM( 2 ) + DSTOR ( 2 » J ) }of DSTOR for average 
SUMO > = SUM ( 3 > + DST0R(3,J) 

SUM ( 4 ) = SUM(4) + DST0R(4, J) 

SUM ( 5 ) * SUM ( 5 ) + DSTOR ( 5 * J) 

710 CONTINUE 

EDATA (1) =( DSTOR < 1 , 1 >-TZERO> {tine (since launch) taken at 
l + ( NAVG-1 ) *0 . 05 Jniddle of average* 

EDATA (2) = SUM<2> / NAVG {Average by dividing by 

EDATA (3) = SUM ( 3 ) / NAVG {r.unber of pts sunned 

EDATA (4) = SUM ( 4 > / NAVG 
EDATA (5) «* SUMO) / NAVG 


Data reduction Method requires a 12 second 
buffer on the end of the data* If tine is 
greater than TST0P1=TST0F’+12, stop real tine 
processing 


IF ( EDATA < 1 ) . GT .TSTQP1 ) 

WRITE (101,1040) {'stop tine reached' 

1040 FORMAT ('STOP TIME REACHED') 

IF ( EDATA ( 1 ) *GT .TST0P1 ) GO TO 200 {end real tine processing 
IF (IWIND.EQ.l) EDATA(2) = 0.0 {if winds only, zero the freq 
IF (IWIND.EQ.l) GO TO 150 {if winds only, skip classi- 

{ -fication of signal 


DATA IS THERMISTOR SIGNAL 


DIFERT= ABS ( EDAT A ( 2 ) ) -APS ( DINERT ) { DIFERT is zero if point 
DIFERT= ABS(DIFERT) {has been given “inert" value 

IF ( ( EDATA (2) .GE . 10 . .AND.fif freq is in signal range( 10-170Hz) 
EDATA(2) »LT. 170 . ) .OR. {or was given "inert" value, 
DIFERT.LT. 0.1) THEN {treat it as signal. 

IFLAG = ISIG 

ISS * 1 + ISS {increnent signal point counter 

IF (JR.EQ.0) GO TO 150 {If last ref intrvl has been 

{processed, no processing is needed 


PROCESS LAST REFERENCE INTERVAL 


IF ( NAFTR .EQ . 0) THEN {if end of ref interval is verified 
NAFTR ® NAFTR0 {reset after-ref pt counter (to 5) 

IF (JR.GE.5) THEN {dont use ref intrvl of less than 5pts 

JRP = JRP + 1 {increnent ref interval counter 

TRF = (RT1 + RT2) * .5 {tine at nidpt of ref interval 

REF = (RSUM - RS ) / (JR -2){avg of freqs in ref interval, 
C {(excluding endpts) 

DTRF =TRF 

DREF *REF {increnent suns for quadratic 

BT(1)=BT(1)+1.0 {least squares fit 

BT ( 2 ) =BT ( 2 ) +TRF 
BT ( 3 > =BT ( 3 ) +TRFXTRF 
BT ( 4 ) =BT ( 4 ) +TRF*TRF*TRF 
BT ( 5 ) =BT ( 5 ) +TRF*TRF*TRF*TRF 
B ( 3 ) =B(3)+DREF 
B ( 2 ) =B(2)+DREF*DTRF 
B ( 1 > =B ( 1 ) +DREF*DTRF*DTRF 
C 

END IF 
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END IF 

NAFTR=NAFTR-1 {decrement after-ref pt counter 

IF(NAFTR.NE.O) GO TO 150 { if still in verify interval , exit 


REPLACE REFERENCE FREQUENCIES WITH 'INERT' VALUE 


At this point, 5 (NAFTRO) signal points have been 
recieved since the last reference point, so 
the reference interval is assumed ended* 

Subroutine REWRT noves back a given number of 
points in the queue and replaces the frequency 
datum of those points with the "inert" value 
DINERT . The number of points rewritten, INTRVL, 
extends fron about the 5th point preceding 
the reference interval to the ^th point following 
it. The overlap is to mask any switching transients. 

Number of data points to rewrite (INTRVL) = 
length of reference interval <JR> 

- noise pts since last ref interval (ISKREF) 

+ 2 'verify' intervals, 

one on each side of ref interval ( 2*NAFTR0 ) 

- 3 points. 


INTRVL=JR-ISKREF+2*NAFTR0-3 }nbr of edited pts to rewrite 
CALL REWRT (INTRVL, DINERT) {replace freqs 
JR = 0 {zero reference point counter 

ISKREF=0 

RSUM = 0.0 {zero sum for reference freq avg 

GO TO 150 {go to coordinate conversion sect. 

END IF 


DATA IB REFERENCE 


IF (EDATA ( 2 > .GE ♦ 170 ♦ .AND. {if freq is within reference 

EDATA(2) .LE.200 , ) THEN {rar.ge< 170-200Hz> , it is reference. 
IFLAG = IREF 


If ISS=0, no signal data has been found — 
process cannot start in reference. It should 
be noted that this can happen only at the 
beginning of the first record. 


IF (ISS.EQ.0) GO TO 60 {if no signal, get more raw data 

JR - JR + 1 {increment reference pt counter 

IF (JR.GE.2) THEN {leave 1st pt in interval out of avg 

RSUM * RSUM + EDATA ( 2 ) {sum of ref freqs for avg 

RS = EDATA (2) {save last ref freq for avg 

IF (JR.EQ.2) RT1=EDAT A ( 1 ) {save time of 2nd pt for time calc. 
RT2 = RT3 {time of next to last pt 

RT3 - EDATA < 1 ) {time of last pt in ref interval 

END IF 
GO TO 150 
END IF 


DATA IS NOISE 
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IF(EDATA(2> .LT.IO. .OR, 
EDATA(2 ).GT«200») THEN 
IFLAG = INOISE 
EDATA<2>=DINERT 
ISKREF= ISKREF+1 


Jif f req is outside data and 
Jref range(10-200Hz> » it is noise* 

{replace with 'inert' value 
{noise counter used in 


END IF 

IF <EDATA(2) .LT.IO* .DR. {if freq is outside< 10-210Hz) , 

EDATA(2) , GT ,210 . ) IFRCK=IFRCK+1 {increnent noise cntr. 


CONVERT TO RECTANGULAR COORDINATES 


'RDRCRD' converts the azinuth, elevation, and range 
coordinates in EDATA(3> , EDATA(4), EDATA(5) into 
rectangular X,Y,Z coordinates, returning the three 
values back in EDATA< 3 ) , EDATA( 4) , EDATA(5) , 
respectively. 


150 CONTINUE 

CALL RDRCRD < EDATA ( 3 ) , EDATA < 4 ) , EDATA ( 5 ) ) 


FIND APOGEE 

IF < EDAT A ( 5 ) , LT « ZAF'OG > THEN {current altitude above stored apogee? 
ZAPOG = EDATA <5) {then save new apogee 

TAF’OG = EDATA(l) {tine of apogee 

END IF 


ADD EDITED DATA POINT TO QUEUE 


CALL ADD1 (EDATA, FULL) {attenpt to add point to queue 1 
IF (FULL . GT * 0 ♦ ) THEN {if queue is full 

WRITE (101,1010) {'edited data queue full' 

1010 FORMAT ('EDITED DATA QUEUE IS FULL') 

GO TO 200 Jterninate real tine processing 

END IF 

GO TO 60 {loop and get another 5 

{raw data points 


END OF REAL TIME PROCESSING 


200 CONTINUE {nornal exit fron real tine loop 

WRITE (101,1000) {'end of real tine processing' 

1000 FORMAT ('END OF REAL TIME PROCESSING') 

IF < IFRCK » GT • 10 0 0 .AND, {nore than 1000 bad data pts? 
.NOT.IWIND) THEN 

WRITE (101,1030) {'converting to wind-only node' 

1030 FORMAT ('*** MORE THAN 1000 BAD FREQ. DATA POINTS FOUND'/ 
'CONVERTING TO WIND3-0NLY MODE') 

IWIND-1 
END IF 

IF ( IWIND ) RETURN {if winds-only, skip least squares 


CALCULATE LEAST SQUARES COEFFICIENTS 


p* t» 


PACE Oil EDIT 
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IF <JRP»LT»3> THEN {less than 3 ref interval*? 

WRITE (101*1020) {display error nessage 

1020 FORMAT ('*** ERROR IN EDIT'/ 

'LESS THAN 3 REFERENCE VALUES ARE AVAILABLE'/ 

'TO CALCULATE LEAST SQUARES FIT') 

STOP 
END IF 

CALL POLYFT <3> {least squares coefficients 

END 


OEJGkiU. FACS !? 
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SUBROUTINE FITON ( ICNTP2 , LTHF'l ) 


GF POOR QUALfTY 


SUBROUTINE FITON LOADS UP A MIDPT ARRAY OF TIMES AND POSITION, 
CALCULATES THE VELOCITIES IN TERMS OF RAW POSITION AND SMOOTHING 
COEFFICIENTS AND STORES THESE IN ARRAYS, ITS ARGUMENTS AREJ 
ICNTF‘2 = INDEX INTO VELOCITY AND MIDPT ARRAYS WHERE DATA IS TO 
E*E STORED « 

LTHPl * SMOOTHING INTERVAL LENGTH FOR CALCULATING VELOCITY. 


INCLUDE ' RCOMMQN . SA J 1 * 

F‘X=Q.O 

F Y = 0 » 0 

P*’ S Q ^ 

DO 1 1=1, LTHPl 
PZX=PZX+Z (I)*PXY1 (I) 
F’X=PX+X ( I > *F‘XY1 (I> 

1 PY=F'Y+Y (I )*PXY1 (I> 

5 TMID<ICNTP2)=TIM(NX1MID> 
XMID ( ICNTP2 ) =X ( NX 1MID > 
YMID (ICNTF*2>=Y (NX1MID) 
ZMID ( ICNTF'2 ) =Z ( NX 1MID ) 

7 XVM( ICNTF‘2 )=F‘X*2 
YVM< ICNTF‘2 >=F’Y*2 
ZXM( ICNTF‘2 )=PZ*2 
RETURN 
END 
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SUBROUTINE FRQTHP (T, FREQ, TEMP, FAIL) 
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PURPOSE 

Calculates the sensor temperature (TEMP) given a signal 
frequency <FREQ)» The ratio between FREQ and the reference 
signal (calculated by a quadratic equation for tine) is 
the search key for the table FCSOND. The sensor resistance 
RWNT is found by interpolation from table RCSOND. A 
second search of table RCBEAD gives the temperature. 

The search technique is binary, 

DUMMY VARIABLES 

FAIL Search-fail flag, FAIL=1 indicates that either 

FRATIO is outside the FCSOND table or RWNT is 
outside of the RCBEAD table so sensor temperature 
cannot be found. Otherwise* FAIL*-1 , 

FREQ Sonde sensor signal frequency (Hertz) to be 

used to calculate sensor temperature 
T Time after launch (seconds), 

TEMP Sensor temperature (degrees Kelvin) 

INTERNAL VARIABLES 

IH,IL»IM Upper, lower, and mid indices used in 
table searches 

RATIO Temporary storage variable 

RWNT Sensor resistance calculated by linear 

interpolation , 


COMMON VARIABLES 

C(3) Coefficients for quadratic least squares fit to 

the reference signal 

FCSOND(ZS) Sonde calibration data, frequency ratio associated 
with corresponding sensor resistance values in 
RCSOND. 


FRATIO 

NCBEAD 

NCSOND 

RCBEAD (10) 

RCSOND (25) 
TCBEAD(IO) 


Ratio of sonde frequency to reference frequency 
Number of calibration points for the thermistor 
given for the present flight. 

Number of calibration points for the sonde for 
the present flight. 

Thermistor calibration data, resistance values 
corresponding to thermistor temperatures 
in TCBEAD. 

Sonde calibration data, sensor resistance values 
corresponding to frequency ratios in FCSOND. 
Thermistor calibration data, temperature (degrees 
corresponding to resistance values in RCBEAD. 


C) 


CALLED BY - DRIVER 


SUBROUTINES CALLED - NONE 
TERMINATION CONDITIONS 

If no values are found in FCSOND bracketing FRATIO, or 
no values are found in RCBEAD bracketing RWNT, TEMP 
is left undefined, the 'search-fail' flag is set to 1, 
and the routine returns. Otherwise, TEMP is calculated. 


CHANGES 
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This routine is identical to the METROC-K version 

except: 

1. The flag FAIL was added to indicate search failure 
as the RETURN1 statement is not available on this 
machine. 

2. The storage variable RATIO was added because AHQD 
will not take arithmetic expressions as arguments. 

3 . The dummy variable TIME was changed to T to avoid 
conflict with a common variable. 

COMPILED 8/23/83 

INCLUDE ' RCOMMQN.SA. 1 ' 

THE DATA IN THE 'CALBRA' LABEL COMMON ARE READ IN BY THE 
PROGRAM 'MAIN' AND THEN ADJUSTED BY THE SUBROUTINE 
'CLOSETS 


FAIL = -1. 

FRATIO = T*(T*C( 1 ) + C(2)> + C(3> 

FRATIO * FREQ / FRATIO 

SEARCH ' FCSOND ' FOR UALUES BRACKETING 'FRATIO' 



IM 

* NCSOND + 1 



IL 

= 0 



100 

IH 

= IM 



110 

IM 

= IL + 

(IH-ID/2 


IF 

(IM.EQ 

.IL) GO 

TO 500 


IF 

< FCSOND <IM) - 

FRATIO) 100,160,120 

120 

IF 

(IM.EQ 

.NCSOND) 

GO TO 500 


IF 

( FCSOND (IM+1) 

- FRATIO) 140,150,130 

130 

IL 

= IM 




GO 

TO 110 




' RWNT ' IS THE SONDE RESISTANCE CALCULATED BY LINEAR- 
INTERPOLATION. 

140 RWNT = RCSOND(IM) + < FRATIO = FCSOND<IM>) * 

( RCSOND < IM+1 > = RCSOND < IM ) > / ( FCSOND ( IM+1 > - FCSQND(IM) ) 
GO TO 190 
150 IM = IM +1 
160 RWNT = RCSOND(IM) 

190 RWNT = EXP (RWNT) 

SEARCH 'RCBEAD' FOR UALUES BRACKETING RWNT 

IM = NCBEAD + 1 
IL = 0 
200 IH * IM 

210 IM a IL t (IH - IL) / 2 
IF (IM.EQ.IL) GO TO 500 
IF (RCBEAD(IM) - RWNT) 200,260,220 
220 IF (IM.EQ. NCBEAD) GO TO 500 

IF (RCBEAD(IM+1) - RWNT) 240,250,230 
230 IL= IM 

GO TO 210 


'TEMP' IS CALCULATED BY AN INTERPOLATION SCHEME 


non on 
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USING 'TCBEAD' AND 'RCBEAD ' » 

ZAO RATIO = RCBEAD (IM) / RCBEAD < IH + 1) 

TEMP = ALOG (RATIO) / < 1 . 0/TCBEAD ( IM+1 ) - 1 
RATIO = RCBEAD (IM) / RWNT 

TEMP ■ ALOG (RATIO) / TEMP + 1 * 0/TCBEAD(IM) 

TEMP « 1.0 /TEMP 

RETURN 

250 IM * Ih + 1 
260 TEMP = TCBEAD(IM) 

RETURN 

SEARCH HAS FAILED 

500 FAIL = 1. 

RETURN 

END 


"‘F i O'vfv ^ *■- 
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Converts geo-potential altitude to meters altitude 


CONSTANTS 

XX Equatorial radius squared in meters 

ZZ Polar radius squared in meters 

9.780356 Equatorial gravity constant in Lambert's Gravity Form. 
9.8 One geo-potential unit » 9.8 geometric units 

5.7704E-5 Geodetic constant in Lambert's Gravity Formula 

5.1723413E-2 Geodetic constant in Lambert's Gravity Formula 


DUMMY VARIABLES 

Z Geo-potential altitude 

GPTOM Altitude in meters 


INTERNAL VARIABLES 


IPASS 


GPHE 

RADUS 

SN 

SN2 

LAT2 


Flag indicating the first time the function is called 
so that radius and gravity can be calculated* Values! 
l=first call of the function 
0=subsequent call 

Lambert's Gravity Formula with altitude terms omitted 
Computed nominal earth radius in meters 
Sine of the geodetic latitude of the radar site 
Sine of twice the geodetic latitude of the radar site 
Twice the geodetic latitude of launch site in degrees 


COMMON VARIABLES 

XLAT Geodetic latitude of the launch site in degrees 


CALLING ROUTINES - DRIVER 


SUBROUTINES CALLED - ZSIN, ZCOS 
REFERENCES 

F.D. Stacey, 'Physics of the earth', John Wiley and Sens, 
1969 pp. 46-48 

CHANGES 

Identical to METROC-K version except! 

1 . Deleted unused constant GRAV 

2. Added temporary storage variable LAT2. 

3. Used new functions ZCOS and ZSIN because 
COS and SIN cannot take negative arguments 

COMPILED 8/22/83 

DATA IP ASS/1/ 

DATA XX/ 4.Q6B01E13/, ZZ/ 4.04068E13/ 

ON FIRST CALL COMPUTE RADIUS AND 
GRAVITY AT STATION LATITUDE 

IF < IPASS. EQ.O) GO TO 10 
IPASS = 0 

RADUS = XX*ZZ/ ( XX*ZSIN ( XLAT ) **2 + ZZ*ZC0S < XLAT) **2 ) 

RADUS = SORT (RADUS) 

LAT2 = 2. * XLAT 
SN2 te ZSIN<LAT2 ) 


o o n p» 
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SN = ZSIN(XLAT) 

GPHE = 9 « 780356 + 5. 1723413E-0Z * SN * SN 
-5.770-9E-05 * SN2 * SN2 

CONVERT GEOPOTENTIAL ALTITUDE TO METERS 

10 GPTOM = <RADUS*9.8*Z> / <GPHE*RADUS - 9.8*Z> 

RETURN 

END 
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FUNCTION GRVITY (Z) 

PURPOSE 

Computes gravity as a function of altitude Z and 
latitude of the observer XLAT. 

DUMMY VARIABLES 

Z Altitude in kilometers 

LOCAL VARIABLES 

GA Conputed quadratic coefficient in gravity 

fornula 

GB Conputed linear coefficient in gravity fornula 

GRVITY Acceleration of gravity as a function of 

altitude and latitude (neter s/second squared) 

GRAV Noninal acceleration of gravity. 

IPASS Flag indicating the first tine the function 
is called* Possible values! 

1= first call* calculate constants 
0= subsequent call* constants already calculated 
RADSQ Square of RADUS* tenporary variable 
RADUS Noninal earth radius (neters) 

XX Equatorial radius squared in neters 

ZZ Polar radius squared in neters 

CCMMON VARIABLES 

XLAT Geodetic latitude of launch site in degrees 
CALLED BY - WIND, DRIVER 
CHANGES 

identical to the METRQC— K subroutine except! 

1 .Variable RADSQ has been added to store intermediate 
results <6/24/83) 

COMPILED 6/24/83 


INCLUDE ' RCOMMON .SAJI' 

DATA IPASS /l/ 

DATA GRAV / 9.79976 /»XX / 4.06801E13 /,ZZ /4.04068E13/ 
IF < IPASS. EG.O) GO TO 10 
IPASS » 0 

RADSQ = XX*ZZ/ < XX*SIN< XLAT ) **2 + ZZ*COS< XLAT ) **2 ) 

RADUS » SORT (RADSQ) 

GA = 3. Q*GRAV/RADUS**2 
GB = -2.0 *GRA V/RADUS 
10 GRVITY = Zx(Z*GA + GB) + GRAV 
RETURN 
END 
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SUBROUTINE KMNTAB (Z, CK1 , CK2, CK3 , CK4, TIME, OUT) 


Lookup into the Krunins' tables according to the 
altitude Z for bracketing values in the array CCZ, 

The four entries are interpolated linearly. 

DUMMY VARIABLES 
CK1.CK2, 

CK3*CK4 Interpolated Krunins coefficients 
OUT Out of range flag. Values? 

l.=altitude is outside range of Krunins table 
-1 .=in range, coefficients returned 
TIME Tine since launch (seconds) 

Z Altitude (Kn) of sonde 

INTERNAL VARIABLES 

IH,IL,IM Upper, lower, and nid index in binary table search 

IX Second index of CC4. l=day, 2=night 

RATE Ratio of altitudes for linear interpolation 

COMMON VARIABLES 

CC1(60> Krunins coefficient Kl» aerodynanic heating factor 
(coefficient of the square of airspeed) 

CC2(60) Krunins coefficient K2 (seconds), dynanic lag factor 
(coefficient of rate of change of sensor tenperature) 
CC3(60) Krunins coefficient K3, radiation enission factor 

(coefficient of fourth power of sensor tenperature) 
CC4(60»2) Krunins coefficient K4 (degrees K), radiation 

(solar, longwave) and electric heating input tern 
CC4( j , 1 ) =f or day 
CC4(j,2)=for night 

CCZ(60) Tabulated altitudes (neters) of the Krunins 
coefficients CC1 ,CC2,CC3,CC4 

DAYNGT Day-night flag. Values? i.=sonde is in daylight 

2 . =night 

NKMN Nunber of altitude levels in the Krunins table 

CALLED BY - KMNTMP , DRIVER 
SUBROUTINE CALLED - SUNUP 
TERMINATION CONDITIONS 

If altitude is outside the Krunins table range, the 
lookup fails and the routine returns with 0UT=1. 

CHANGES 

Identical to METROC-K version except? 

l.The flag OUT was added to indicate the out-of-range 
condition . 

COMPILED 8/20/83 


INCLUDE 'RCGMMQN ♦ SA ♦ 1 ' 

OUT = -1, Jclear out-of-r ange flag 

THE SEARCH TECHNIQUE IS BINARY 


> 


IM - NKMN + 1 
IL - 0 
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10 IH * IH 

20 IH = IL *• (IH-IL) / 2 

IF (IH.EG.IL) GO TO 100 }if Z below botton of table 

IF <Z - CCZ(IH)) 10,60*30 

30 IF (IH.GE.NKHN) GO TO 100 {if I above top of table 

IF (Z - CCZ (IH+1 ) > 70, 50,40 
40 IL = IH 
GO TO 20 
50 IH a Ih + 1 
60 RATE =0.0 
GO TO 80 

INTERPOLATION 

70 RATE = - < CCZ ( IH ) - Z) / (CCZ<IH> - CCZ(IH+1)> 

80 CK1 = CCKIH ) + RATE*(CC1 (IH > - CCKIH+l )> 

CK2 = CC2 ( IH > + RATE* ( CCZ ( IH > - CC2(IH+1 )) 

CK3 = CC3 ( IH > + RATE* ( CC3 ( IH ) - CC3<IH+1 )) 

IX = 1 

CALL SUNUP (Z, TIHE) 

IF (.NOT. DAYNGT ) IX = 2 

CK4 = CC4 < IH , IX ) + RATE* (CC4(IM,IX> - CC4 ( IH+1 , IX ) ) 

RETURN 

OUT OF RANGE 

100 OUT = 1. 

RETURN 

END 
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ORIGINAL FAGS tS 
OF POOR QUALITY 


SUBROUTINE KMNTMP (TAIR, CAERO, CDYN , CEMISS, CABSRB, AIRSPD) 


Calculates the corrected air tenperature TAIR 
based upon the Kr unins' tables. 

DUMMY VARIABLES 

AIRSPD Relative airspeed 

CABSRB Krunins tenperature correction (degrees Kelvin) 

'or absorbed radiation (solar and longwave) 

CAERO Krunins tenperature correction for aerodynanic 

heating 

CDYN Krunins tenperature correction for 

dynanic lag 

CEMISS Krunins tenperature correction for 
enitted radiation 

TAIR Air tenperature based on Krunins corrected 

sensor tenperature (degrees Kelvin) 

INTERNAL VARIABLES 
CK1 » CKZ , 

CK3,CK4 Interpolated Krunins coefficients 
OUT Out-of-range flag. Values* 

1. “altitude ZS is outside range of Krunins table 
0.“in range 

COMMON VARIABLES 

TEMP Sensor tenperature (dsgrees Kelvin) 

TEMPO Rate of change of sensor tenperature (degrees K/sec) 
TIME Elapsed tine since launch (seconds) 

ZS Altitude of sonde (neters) 

CALLED BY - DRIVER 

SUBROUTINES CALLED - KMNTAB 


CHANGES 

Identical to METRQC-K version except. 
l.Flag OUT added to indicate out-of-range condition 
in KMNTAB. 

COMPILED 8/22/83 


INCLUDE ' RCQMM0N.5A* 1 ' 

CALL KMNTAB (ZS r CK1 , CK2 , CK3, CK4, TIME, OUT) 

IF (OUT) GO TO 10 

CAERO * - ( CK1 * AIRSPD**2> 

CDYN = CK2 * TEMPD 
CEMISS = CK3 * TEMP**4 
CABSRB = -CK^ 

TAIR = TEMP + CAERO + CCYN + CEMISS + CABSRB 
RETURN 
C 

C * OUTSIDE KRUMINS TABLE RANGE, NO TEMP COR APPLIED .... 
10 CAERQ=?99 . 9 
CDYN=999,9 
CEMISS=999.9 
CABSRB=999.9 
TAIR=TEMP 
RETURN 
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pp* 


s 



-219168. ,2053152. , 
- -703620 0 . , 


SETUP INITIAL VALUES 
SUM ( 1 ) =0 . 

DM < 1 ) = 1 • 

MID=l+N/2 
DO 1 J=1 * 50 
1 EM(1,J>=1. 


1 , J>=l ♦ 

COMPUTE BASIC CONSTANTS FOR COEFFICIENTS! 
DM ( K ) =N ( N-l ) (N-2) ♦ . . <N+1-K) 

EM(K,I)=I<I-1> (1-2) . ♦ ♦ <I+1-K> 

3 K=2, 11 


DO 

MK-l-K 
FAC=2+N-K 
DO 


1=1,50 

MUL=I+MK 

EM<K,I>=MUL*EM(K-1 ,I> 
DM(K)=FAC*DM(K-1) 


nn n n o n 
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C REPLACE EM ( K » I >BY EM ( K , I ) /Dh< K > 

DO 4 K = 2 » 1 1 
SUM ( K) =0 . 

DO 4 I=K ,50 

4 EM < K , I ) =EM ( K ,1) /DM (K ) 


ORIGINAL PAGE F9 
OF POOR QUALITY 


COMPUTE FIRST HALF OF COEFFICIENTS 1=1, 
MID AND TOTAL SUMS SQUARES 
DO 8 1=1, MID 
DO 6 M=1 , MF'WR 
C < M > = 0 . 

LIM=M+1 
DO 5 K=1 , LIM 

C(M)=C(M)-»-EM<K,I)*BINOM(M,K> 

TEMP=C(M) 

IF (ACS (TEMP) .LT . ,1E-15) C(M> = 0. 

5 CONTINUE 

CF (M , I ) =C < M ) 

6 CONTINUE 


GENERATE SECOND HALF OF COEFFICIENTS 
INDX=N+2-I 
DO 7 M=1 ,MPWR ,2 

7 CF < M , INDX ) =-CF < M , I ) 

DO 8 M=2 , MPWR,2 

8 CF ( M , INDX > =CF ( M ,1 ) 

GENERATE CORRECT SUMS OF SQUARES IN SINGLE PRECISION 
DO 9 M=1 , MF‘WR 
CFSQ ( M ) =0 ♦ 0 
DO 9 1=1 ,NPTS 

9 CFSQ ( M ) =CFSQ ( M > +CF ( M , I ) *CF ( M , I > 

IF (NDER » EQ . 0) GO TO 10 
DO 37 1=1, MID 

C El ( M ) =I**M 

EII=I-1 
EI( 1 )=EII 
DO 20 M=2 , MPWR 

20 El ( M ) =EII*EI ( M-l ) 

C EM(M,I)=NCP(M) OF I 

EM( 1 ,I)=1 ♦ 

DO 21 M=2 , MPWR 
EM < h , I > =CONl <M , 1 ) 

DO 21 K=2,M 

21 EM ( M » I > =EM < M » I ) +CON1 ( M , K > *EI ( K-l ) 

C EM ( M , I ) =NCP ( M > /DM { M+ 1 ) 

DO 22 M=1 , MPWR 

22 EM ( M , I ) =EM ( M ,1 ) /DM <M+1 ) 

C 

C COMPUTE FIRST DERIVATIVE COEFFICIENTS (FIRST HALF) 

DO 24 M=1 , MF'WR 
C(M)=1. 

DO 23 K=1 ,M 

C ( M > =C ( M ) +EM ( K , I ) *BINOM ( M , K+l > 

TEMP=C(M) 

IF (ABS(TEMP) ,LT. 0.1E-15) C(M> = 0. 

23 CONTINUE 

24 CF1 (M,I)=C(M) 


on n o on 
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GENERATE SECOND HALF OF COEFFICIENTS 
INDX=N+2-I 
DO 25 h=l t MPWR , 2 

25 CF1 <M,INDX)=CF1 (M»I) 

DO 26 M=2»MPWR,2 

26 CF1 <M,INDX>=CF1<M,I> 

IF (NDER .EQ, 1, )GO TO 10 
EM < M » I ) =NCPP ( M ) OF I 
EM< 1 »I)=0 . 

Eh( 2 »I ) =2 . 

DO 31 M=2»MPWR 
Eh ( M » I ) =C0N2 < M » 1 ) 

DO 31 K=2 »h 

31 EM ( M » I > =Eh < M » I ) +C0N2 ( M » K ) *EI < K-l ) 

EM<M,I)=NCPP<h)/Dh<M+l> 

DO 32 M® 1 t MPWR 

32 EM( M »I) =EM < M , I )/DM (M+l > 


0F poor 


QL'AL; 


COMPUTE SECOND DERIVATIVE COEFFICIENTS (FIRST HALF) 
DO 34 M*1 »MPWR 
C<M>=0 . 

DO 33 K=2 t M 

C(h)=C(M) +EM < K » I ) *BINOM < M , K+ 1 > 

TEMP=D<M> 

IF < ABS(TEMP) »LT. .IE-15) C(M)=1* 

33 CONTINUE 

34 CF2(M,I)=C<M> 

C GENERATE SECOND HALF OF COEFFICIENTS 

INDX=N+2-I 
DO 35 M=1,MPWR,2 

35 CF2(M,INDX)®-CF2<M,I> 

DO 36 M=2 r MPWR » 2 

36 CF2 ( M » INDX ) =CF2 ( M » I ) 

37 CONTINUE 
10 RETURN 

END 
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xBEGIN 112395 

x 

* 9/28/82 

x CHANGES MADE: 

x NONE 

x 

CHAIN MAIN PROGRAM FOR 'K' VERSION OF METROC SYSTEM OF PROGRAMS 

XXXXXXXXXXXXXXXXXXXXXX 

X NAME - METROC-K 

x NUMBER - 112395 

x ABSTRACT - METROC-IK IS DESIGNED FOR TOTAL AUTOMATED DATA 

REDUCTION OF METEOROLOGICAL ROCKETSONDE PARAMETERS. THE ONLY 
MANUAL INTERFACE REQUIREMENT IS THE INPUT OF SONDE CALIBRATION 
DATA, SUPPORTING RAWINSONDE DATA, AND NECESSARY START AND STOP 
INFORMATION FOR THE INPUT TAPE, THE PROGRAM USES A METPASS 1 
(1,1,2397) OUTPUT TAPE. THE DATA ARE EDITED IN A CLEAN-UP 
ACTIVITY AND PASSED THRU ADDITIONAL SMOOTHING AND FILTERING 
WHERE WIND, TEMPERATURE, PRESSURE, AND OTHER PARAMETERS ARE 
CALCULATED. THE PROGRAM ALSO AVERAGES THE VELOCITY COMPONENTS 
USING A 21 POINT AVERAGING SCHEME. THE DATA ARE REFORMATTED 
AND A BASELINE TIE-ON LEVEL (BETWEEN RADIOSONDE AND ROCKET 
DATA) IS FOUND, 


x PURPOSE 

ALL INPUT CARDS FOR METROC-K ARE READ IN THIS ROUTINE AND 
DISPLAYED FOR EASY VERIFICATION, SUBROUTINE EDIT .IS CALLED TO 
PASS ONCE THROUGH THE APPARATUS: DATA, CHECK FOR VALIDITY, AND 
EDIT IT. DRIVER IS CALLED TO PASS THROUGH THE DATA AGAIN, 
CALCULATING METEOROLOGICAL DATA. METFORM IS CALLED TO AVERAGE 
VELOCITY CAMPONENTS AND DETERMINE THE TIE-ON LEVEL. 

x COMMON BLOCKS - /CTIM/, /IFMQP/, /TEMPA/ , /CDATA/, /CGATE/ , 

/CALBRA/ 


x INPUTS 

BPRES - 30 WORD ARRAY OF RADIOSONDE PRESSSURES 

BTMP - 30 WORD ARRAY OF RADIOSONDE TEMPERATURE (CELSIUS) 

CALD - SODE SENSOR FREQUENCY CALIBRATION DATUM 

DPP - 30 WORD ARRAY OF DEWPOINT 

HEADER - 14 WORD LAUNCH OPERATION LABEL 

HRADAR - RADAR SITE HEIGHT ABOVE SEA LEVEL IN METERS 

ICAL - NOT USED IN METROC-K 

IENT - SWITCH, 1 * CALIBRATION REQUIRED 

IFILE - FILE NUMBER FOR USE WITH MULTIFILE INPUT TAPES 

IFM - OPTION, 0 = CHANGE SLANT RANGE FROM FEET TO METERS 

IRSKIP - NUMBER OF INPUT RECORDS TO SKIP BEFORE PROCESSING 

IWIND - LOGICAL SWITCH, 1. = RADAR DATA ONLY, -1. = TEMP. 

IZTIME - LAUNCH TIME IN HOURS, MINUTES AND SECONDS (INTEGER) 

LALT - 30 WORD ARRAY OF RADIOSONDE ALTITUDE IN DECAMETERS 

LDIR - 30 WORD ARRAY OF RADIOSONDE WIND DIRECTION IN DEGREES 

LSFD - 30 WORD ARRAY OF RADIOSONDE WIND SPEED (M/S) 

NCBEAD - NUMBER OF THERMISTOR CALIBRATION POINTS 
NCSOND - NUMBER OF SONDE CALIBRATION POINTS 
NPBL - NUMBER OF RADIOSONDE DATA POINTS 
RCBEAD - CALIBRATION DATA FOR SENSOR 
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RCSOND - SONDE CALIBRATION DATA 

REF - SONDE REFERENCED FREQUENCY PERIOD IN SECONDS 
TCBEAD - THERMISTOR CALIBRATION DATA (TEMPERATURE DEG. CELSIUS) 
TSTART - TIME TO START PROCESSING DATA (SECONDS AFTER LAUNCH) 
TSTOP - TIME TO STOP PROCESSING DATA (SECONDS AFTER LAUNCH) 

XLAT - GEODETIC LATITUDE OF LAUNCH SITE IN DEGREES 
XLONG - GEODETIC LONGITUDE OF LAUNCH SITE IN DEGREES 

* OUTPUT 

HEADER, IZTIME , TSTART, TSTOP, IRSKIP, HRADAR, XLAT, XLONG, 
IWIND, RCSOND, FCSOND, REF, CALD, TCBEAD, RCBEAD - CARD IPUT 
DATA PRINTED ON OUTPUT LISTING 

HGATE - HALF-WIDTH OF SIGNAL GATE USED FOR TRACKING MET DATA 
SIGLEV - INITIAL VALUE OF SIGNAL GATE USED TO ACQUIRE, FILTER, 
AND TRACK MET DATA = 155.0 
TZERO - GMT LAUNCH TIME IN SECONDS 


* INTERNAL VARIABLES 

BI - OCTAL VALUE FOR ALL BLANKS 03 77777777777 

DTOR - CONVERSION FACTOR FOR DEGREES TO RADIANS 

MXBEAD - MAXIMUM NUMBER OF THERMISTOR SENSOR CALIBRATION POINTS 

MXSOND - MAXIMUM NUMBER OF SONDE CALIBRATION POINTS 

* INPUT FILES 

05 CARD BCD METROC-K INPUT CARDS 1 TO 37 

* OUTPUT FILES 

06 LISTING BCD METROC-K INITIALIZATION AND 

CALIBRATION DATA 

* SCRATCH FILES - NONE 

* CALLING ROUTINES - NONE 


* SUBROUTINES CALLED - ERROR, CLOSET , EDIT, LDEDIT , DRIVER, METFORM 

* COMMENTS 

IF CALIBRATION DATA IS NOT WITHIN BOUNDS OR FCSOND AND RCBEAD 
VALUES ARE MOT INCREASING, AN ERROR MESSAGE IS PRINTED AND JOB 
IS TERMINATED 


* MODIFICATION HISTORY 
PROGRAMMER 
BILL SPEIDEL 


CHARLOTTE TETER 

******** 


DATE MODIFICATION 
9/02/80 *ADDED FILE SKIP OPTION (FC 21) 
2/11/81 *READ FEET TO METERS CONVERSION 
OPTION FROM INPUT CARD 4 
*PRINT CARD 4 ON FILE 06 
8/24/81 «CALL METFORM 


COMMON /CTIM/ ICAL,IENT ,IDN 
COMMON /IFMGP/ IFM 

COMMON /TEMPA/ DRTEMP ( 1 0 0 ), DRTIM ( 1 0 0 ), NOTEMP , NTPT 
COMMON /CDATA/ HEADER ( 14 ), TSTART , TZERO , TSTOP , IWIND , 

HRADAR, XLAT, XLONG, 

NPBL , LALT ( 30 ) ,LSPD (30 ) ,LDIR ( 30 ) , DPP ( 30 ) , BTMP ( 30 > ,BPRES ( 30 ) , ALTG , 
IRSKIP , LEV 


O O po 


PAGE 003 HETROC .SASl 


OF PODr! QUALn*y 


COMMON /CGATE/ SIGLEV.HGATE 

COMMON /CALBRA/ FCS0ND(25>» RCS0ND(25>, TCBEAD (10). RCBEAD(IO), 

& NCBEA Dr NCSOND 

DIMENSION IZTIME<3> 

DATA MXBEAD /IQ/, MXSOND /25/ 

DATA 6 1/0377777777777 / 

DATA DTOR / .01745329/ 

DATA IEC /21/ 

C 

C+ *READ INPUT CARDS AND INITIALIZE 
SIGLEV=155» 

HGATE=5. 

READ (5,400) HEADER, IZTIME ,TSTART , TSTOP, IWIND , IRSKIP, 

& HRADAR, XLAT , XLONG , IFILE 

IF (IFILE. EG. 0) IFILE = 1 
NFILE = IFILE - 1 

TZERO * 60.*(60.*IZTIME<1 >+IZTIME(2) >+IZTIME(3) 

WRITE <6,500) HEADER, IZTIME, TZERO, TSTART , TSTOP, 

IRSKIP, NFILE, HRADAR, XLAT, XLONG, IWIND, SIGLEV, HGATE 

* PERFORM FILE SKIP 
REWIND (21) 

IF ( NFILE. LE.0) GO TO 5 
CALL FILFSP <TFC, NFILE) 

5 CONTINUE 
C 

XLAT = XLAT * DTOR 
XLONG = XLONG * DTOR 
IF (IWIND) GO .TO 16 

C CONVERT DEGREES TO RADIANS 

C***x* DATASONDE CALIBRATIONS DATA ... 

READ ( 5,201) IENT ,ICAL»IDN,IFM 
IF (IENT.EQ.l) GO TO 11 
WRITE (06,5200) 

GO TO 12 

11 WRITE (06,5000) 

12 IF (ICAL.EG. 1 > GO TO 13 
WRITE (06,5300) 

GO TO 14 

13 WRITE (06,5100) 

14 IF (IFM.EG.l) GO TO 15 
WRITE (06,5400) 

GO TO 160 

15 WRITE (06,5500) 

160 CONTINUE 

IF (IENT > ,16, 

READ(5, 420 ) NCSOND , NCBEAD 
C 

C+ SPRINT ERROR MESSAGE IF CALIBRATION DATA IS OUT OF BOUNDS OR FCSOND 
C+ AND RCBEAD VALUES NOT INCREASING 

IF ( NCBEAD. GT. MXBEAD) CALL ERROR < 4 ) 

IF ( NCSOND. GT. MXSOND) CALL ERROR (5) 

IF ( NCBEAD. LE.l) CALL ERROR (6) 

IF (NCSOND. LE.l) CALL ERROR ( 7 ) 

WRITE (6,520) HEADER 
WRITE (6,550) 

DO 20 I = 1, NCSOND 
READ <5, 431) RCSOND(I), REF, CALD 


popopocx.'x.popotxipopopc n p» no non 
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FCS0ND(I)=REF/AMAX1(CALD,1.) 

IF ( CALD » EQ ♦ 0 . ) REF*BI 
IF(CALD,EO.O. > CALD=BI 

WRITE(6»560 ) RCSOND(I) ,FCSOND(I> ,REF,CALD 
IF (I»EQ» 1 ) GO TO 20 

IF (FCSOND(I) »GE .FCS0ND(I-1 ) > CALL ERROR < 9 ) 

20 CONTINUE 

WRITE (6,530) 

READ( 5 ,431 ) < TCBEAD ( I > , 1=1 , NCBEAD ) 

REAO (5 , 431 > ( RCEiEAD ( I ) ,1=1 ,NCE:EAD ) 

DO 10 I = 1 , NCBEAD 

WRITE (6,540) TCBEAD(I), RCEiEAD ( I ) 

IF (I.EQ.l) GO TO 10 

IF ( RCBEAD (I ) . GE, RCBEAD (I-l) ) CALL ERR0R(8> 

10 CONTINUE 
16 CONTINUE 
C 

C+ *READ INPUT BASE LEVELS IF AVAILABLE 

READ (5,501) NPEiL, (LALT (I) ,LSPD(I) ,LDIR(I) ,DPP(I> ,BTMP(I) ,EiPRES(I) 
« ,1*1, NPEiL) 

IF (IWIND) GO TO 30 
C 

C+ *MODIFY CALIBRATION DATA 

C CLEiSET ' MODIFIES THE TCBEAD, RCBEAD, RCSOND, AND FCSOND 

C ARRAYS FOR LATER USE BY THE SUBROUTINE 'FRQTMP' * 

CALL CLBSET 


*EDIT , SMOOTH AND FILTER METEOROLOGICAL ROCKETSONDE PARAMETERS 
30 CALL EDIT 

CALL UDEDIT( IWIND) 

CALL DRIVER 
CALL METFORM 
STOP 


201 FORMAT ( 411 ) 

400 FORMAT (14A6 / 3(12, IX), IX, 2F10.1, 4X, LI, 13X, 17 / 

F10 <2, 2F 10,4,13) 

410 FORMAT (2(F10.2, F1Q,4>) 

420 FORMAT (215) 

430 FORMAT (30X, F10.1, F10.3) 

431 FORMAT <5F10,5) 

440 FORMAT (30X, F10.1, F10.4) 

500 FORMAT (1H1, 14A6 // 

19X, 'TIME OF LAUNCH* ', 12, 2(1H*, 12), 1HZ, 

3X, F7.0, ' SECS' / 

' START PROCESSING (SECS PAST TQL># ', F6.1, ' SECS' / 

' STOP PROCESSING (SECS PAST TOL)* ', F6,l, ' SECS' // 

7X , 'INPUT TAPE RECORDS TO SKIP® ' , 17 / 

7X , 'INPUT TAPE FILES TO SKIP® ', 17 // 

19X, 'RADAR ALTITUDE* ', F7.1, ' METERS'/ 

19X , 'RADAR LATITUDE* ', F7,2, ' DEGREES' / 

18X, 'RADAR LONGITUDE* ', F7.2, ' DEGREES COUNTED POSITIVE WE' 
, 'ST OF GREENWICH' // 

19X , 'WIND DATA ONLY+ Ll ,//19X, 'SIGLEV,HGATE=' ,2F6. 1) 

501 FORMAT (I2/( 3(15, 213, F4,l, F5,l, F6, 1) ) ) 


P* P* P# 
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515 FORMAT ( 

5X t 7 SONDE ALTITUDE# 7 , F7.1, 7 TO F7.1 / 

15X , 7 SONDE AIR PRESSURE* F7 . 1 , 7 TO 

F7.1, 7 MILLIBARS 7 ) 

520 FORMAT (1H1* 14A6 // 7 CALIE'-RATION DATA 7 ) 

530 FORMAT < / 7 TEMP-CENTIGRADE RESISTANCE-K OHMS 7 /) 

540 FORMAT < 4X, F7.1, 12X, F8.3) 

550 F0RMAT</ 7 RESISTANCE-K OHMS FREQ RATIO REF. FREQ. SIG. 7 

& , 7 FREQ, 7 /) 

560 FORMAT < 4X »F8 .1,8X*F8.4» 2F14 .4 ) 

5000 FORMAT <1H0,T20, 7 21 POINT CALIB, DATA REQUIRED 7 ) 

5100 FORMAT <1HQ,T20 'CALIB, DATA IS PRESENT 7 ) 

5200 FORMAT < 1H0 ,T20 , 7 WIND DATA OR DATA FILE 08 REQUIRED 7 ) 

5300 FORMAT ( 1H0 ,T20 , 7 CALIB , DATA NOT PRESENT 7 ) 

5400 FORMAT ( 1H0 ,T20 , 'SLANT RANGE FROM INPUT TAPE IS IN FEET 7 ) 

5500 FORMAT <1H0 ,T20 , 'SLANT RANGE FROM INPUT TAPE IS IN METERS') 

END 
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SUBROUTINE F’OLYFT (N> 


PURPOSE 

Calculates the coefficients for a polynomial 
least-squares fit by solving the matrix equation 
AC * B 

The elements of A are supplied by array BT , 
which is generated by EDIT along with array B. 

C is the solution vector. The technique used 
is Gaussian elimination followed by back solution. 


A< i * j ) 

= Sum<f req** < 2N-i- j ) > i>0, 

= n i = 0* 

j>0 
j = 0 

B(i> 
BT ( i ) 

= Sum< f req*time«* ( N-i > > 

♦ 


DUMMY VARIABLES 

N Number of coefficients in the fitted polynomial* 

equals one plus the degree of the polynomial 

LOCAL VARIABLES 
DL 
I 

IL 

IXA 

J 

JX 

COMMON VARIABLES 
A(3*3) 

B(3) 

E:T (5 ) 

C ( 3 > 

CHANGES 

Identical to the METROC-K version except? 

1. Array A in the origional routine* which was 
equivalent to common array BT * was replaced 
with BT ♦ 

2. Array U was renamed A. 

REFERENCES 

Equations for coefficients? F.L. Staffanson* "METROC-K 
Algorithms"* University of Utah Engineering College 
Report UTECMR 79-161 November 1979, pp. 16-17. 


INCLUDE ' RCOMMON . SA ? 1 ' 


ELIMINATION 


IL * 0 

DO 30 I = 1*N 
IXA * 2* ( N-IL ) 
DO 10 J = I * N 




{transfer Ith row into matrix A 


non 
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IXA = IXA-1 
10 A(I,J> = BT(IXA) 

IF (IL.EQ.O) GO TO 30 
DO 20 J * 1,IL 
DL = A( J,I>/A< J, J> 

C 

E: < I > * B<I)-DL*B< J) 

DO 20 JX = I t N 
20 A<I,JX> * A ( I » JX ) -DL*A ( J , 
30 IL » IL+1 


oRKmL pace r;r 

OF POOR QUALITY 

{from storage array BT 


♦divide Jth row by pivot A(J»J> 
to get multiplier DL 

♦subtract DL times Ith row 
) Jfron Jth row 


BACK SOLUTION 


40 I = N 

50 IF (I.EQ.IL) GO TO 60 

B( IL ) = B(IL>-C(I)*A<IL,I> 
I = 1-1 
GO TO 50 

60 C ( IL ) * E:(IL)/A(IL*IL) 

IL = IL- 1 

IF (IL.NE.0) GO TO 40 

RETURN 

END 
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SUBROUTINE RDRCRD ( RDATA ) 


PURPOSE 

Converts the azimuth, elevation, and range information 
in array RDATA into rectangular X, Y, Z coordinates. 

The coordinates are then stored back in array RDATA. 

(with X»Y,Z stored respectively in the azimuth, elevation, 
and range) 

DUMMY VARIABLES 

Azimuth, elevation, and range input from _EDIT 
and X, Y, Z coordinates passed back to EDIT! 
RDATA(l) azimuth (degrees), X coordinate (meters) 

RDATA( 2 ) elevation (degrees), Y coordinate (meters) 

RDATA(3) range (meters), Z coordinate (meters) 

CONSTANTS 

CRVETH Reciprocal of twice the earth's radius (1/meters) 
DTOR Degrees to radians conversion factor 

INTERNAL VARIABLES 

AZR Radar azimuth angle in radians 

CA Cosine of radar azimuth 

CE Cosine of radar elevation 

ELR Radar elevation angle in radians 

R Horizontal (ground) range of sonde from radar 

SA Sine of radar azimuth angle 

SE Sine of radar elevation angle 

COMMON VARIABLES 

HRADAR Height above sea level (meters) of radar site 
CALLING ROUTINE - EDIT 
SUBROUTINES CALLED - ZSIN, ZCOS 
REFERENCES 

Conversion formula! F.L. Staffanson, "METROC-K Algorithms" 
University of Utah Engineering College Report UTECMR 79-161 
November 1979, pp. 10-11 

CHANGES 

This subroutine is identical to METROC-K version 
except ZSIN and ZCOS functions replace standard 6809 
trig functions because they don't take neg . arguments 
COMPILED 5/17/83 


INCLUDE ' RCOMMON . SA i 1 ' 

DIMENSION RDATA (3) 

DATA DTOR / .01745329/ {degrees to radians conv. factor 

DATA CRVETH / 7 .8491112E-08/ {reciprocal of twice the earth's 
C {radius 

C 

AZR = RDATA (1) * DTOR {convert azimuth from degrees to radians 
ELR = RDATA (2) * DTOR {convert range from degrees to radians 

CA = ZCOS (AZR) 

SA = ZSIN (AZR) 

CE = ZCOS (ELR) 
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SE = ZSIN 
R * RDATA 
RDATA (1) 
RDATA (2) 
RDATA (3) 
END 


(ELR) 

<3> * CE 
a R * SA 
= R * CA 

= RDATA <3 > * SE + R*R*CRVETH + HRADAR 


non 
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SUBROUTINE REMOV1 ( D , EMTY ) 
For documentation see ADD1 


INCLUDE ' RCOhMON .SA 11' 
DIMENSION D<5> 

EMTY=-1 . 

* IF (ITAIL1.EQ.IHEAD1) THEN 

EMTY=1 . 

RETURN 
END IF 
DO 10 1=1,5 

D ( I >=QFILE <I»ITAIL1 ) 

10 CONTINUE 

ITAIL1=ITAIL1+1 

IF (ITAII.l »GT .LNGTHQ) ITAIL1=1 
END 


OF POOR QUALITY 


non 
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* 

SUBROUTINE REM0V2 ( D » EMTY ) 
For documentation see ADD1 


ORiSM/i PACa 
OF POOR QUALITY 


INCLUDE 'RCOMhON.SA! 1 / 
DIMENSION D(5) 

EMTY=-1 , 

& IF (ITAIL2 . EQ . IHEAD2 > THEN 

EMTY=1 . 

RETURN 
END IF 
DO 10 1=1 ,5 

D ( I ) =QFILE ( I > IT AIL2 ) 

10 CONTINUE 

ITAIL2=ITAIL2+1 

IF (ITAIL2.GT .LNGTHQ) ITAIL2=1 
END 


onononoononnnnnnnononoonononnoooonnnoonooononooonooonnnon 
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SUBROUTINE REWRT ( INTRVL , DINERT ) 


PURPOSE 

Replaces the frequency datUM of the last INTRVL 
edited data points in queue 1 with an "inert" value, 
DINERT. Rewrites that would overrun the beginning 
of the queue are stopped at the beginning <ITAIL1>. 

> (enpty) 

DDDDDDDDDDD EEEEEEEEEEEE 


queue 2D A A E queue 1 

(values D IHEAD2 ITAIL1 E (data points 

fron D E from 

DRIVER) D E EDIT) 

DDDDDDD EEEEEEEEEEEEEEEEEEEEEE 

a a <; 

ITAIL2 IHEAD1 


DUMMY VARIABLES 

DINERT Constant to replace the frequency value 

in QFILE ( 2 , j ) in the points to be rewritten. 

INTRVL Nuwber of points in the queue to be rewritten, 

starting at the last point added. 

INTERNAL VARIABLES 

I Index of points to be rewritten. 

ISTART Start pointer. Contains index in queue of 

first point to be rewritten. 

ISTOP Stop pointer. Contains index in queue of 

last point to be rewritten, which is the 
last point in the queue. 


COMMON VARIABLES 

IHEAD1 Head pointer 

of next point 

ITAIL1 Tail pointer 

of next point 
QFILE (5, 20 00 ) Storage queue 
fron EDIT and 
DRIVR1 . 

QFILE < 1 , j ) a: 
QFILE ( 2 , j ) = 
QFILE ( 3 , J ) = 
QFILE ( 4 , j > = 
QFILE (5, j )= 

CALLING ROUTINES - EDIT 


for queuel. Points to location 
to be added to queuel. 
for queuel. Points to location 
to be rewoved froM queuel. 
containing edited data points 
Meteorological values from 

tine since launch < seconds) 
frequency da tun (Hertz) 

X coordinate (Meters) 

Y coordinate (Meters) 

Z coordinate (Meters) 


COMMENTS 

1 .Subroutine ADD1 initializes the queue pointers 
used by all the other queue access routines J 
ADD2, REM0V1, REM0V2 , REWRT. Therefore ADD1 
Must be called at least once before any of the 
others are called. 

2. REWRT will only work properly if IHEAD1 is 
greater than ITAIL1. This should always be 
true in EDIT and should be checked if the 
initial values of the pointers are changed. 


nnnnnnn 
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ORIGINAL PAG£ IS 
OF POOR QUALITY 


CHANGES 

REWRT is s new routine and was not part of METRQC-K* 

COMPILED 6/20/82 
REFERENCES 


INCLUDE ' RCOMMON • SA* 1 ' 

IF (IHEAD1 ,LE. ITAIL1 > THEN {check proper pnter condition 
WRITE (101,1000) 

STOP 
END IF 

IF (INTRVL.LE. 0 ) RETURN {handles case of INTRUL=0. 
IST0P=IHEAD1“1 {stop at last edited pt 

ISTART=ISTOP-INTRUL {start INTRVL pts back 

IF (ISTART »LT .ITAIL1 > ISTART=ITAIL1 
DO 10 I=ISTART,ISTOP 
QFILE ( 2 , I >-DINERT 
10 CONTINUE 

1000 FORMAT ('*** ERROR IN REWRT'/ 

& 'HEAD POINTER LESS THAN OR EQUAL TO TAIL POINTER') 

END 


n n p» nnonnoooo 
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•or PO’jR QU. .l:iY 

SUBROUTINE SINGLE ( IDEG1 , NPTFT1 , CPI , CV1 , CA1 ) 

SUBROUTINE SINGLE CALCULATES SMOOTHING COEFFICIENTS* ITS ARGUMENTS 

are: 

IDEG1 = THE DEGREE OF TIME SMOOTHING POLYNOMIAL 
NPTFT1 = THE SMOOTHING INTERVAL LENGTH 

CPI = DATA COEFFICIENTS 

CV1 = VELOCITY COEFFICIENTS 

DAI = ACCELERATION COEFFICIENTS 

DIMENSION PI ( 1 0 , 99 ) , PP 1 < 1 0 * 99 ) * PPP 1(10,99), PSQ 1(10 l , CV 1(100), 

CA 1(100) , CP 1(100) 

CALL LEGNDR TO OBTAIN LEGENDRE POLYNOMIAL COEFFICIENTS FOR FIT 
CALL LEGNDR ( NPTFT 1 , IDEG1 , PI »PSQ1 , PP1 , PPP1 , 2 > 

MID=NPTFT 1/2+1 
PTFT l-NPTFT 1 

C COMPUTER DATA, VEL, AND ACC COEFFS FOR FIRST DEG OF FIT 

DO 20 1=1 , NPTFT 1 

CPI ( I ) *P1 ( 1 , I ) *P1 ( 1 , MID ) /PSQ1 ( 1 ) +1 . 0 /PTFT1 
CV1 (I )=P1 ( 1 » I ) *PP1 ( 1 , MID ) /PSQ1 ( 1 ) 

CA1 (I )=P1 ( 1 » I )*PPP1 ( 1 ,MID ) /PSQ1 ( 1 ) 

IF (IDEG1 »EQ» 1 ) GO TO 20 
DO 5 J=2 , IDEG1 

C COMPUTE DATA, VEL, AND ACC COEFFS FOR HIGHER DEGS OF FIT 

CPI ( I ) -CP 1 ( I ) +P1 ( J , I ) *P 1 < J , MID > /FSQ1 ( J ) 

CV1 (I) =CV1 ( I ) +P1 ( J , I ) *PP1 ( J , MID ) /PSG1 ( J ) 

S C A 1 ( I ) =CA 1 ( I ) +P 1 ( J , I ) *PPP 1 ( J , MID ) /PSQ1 ( J > 

20 CONTINUE 
RETURN 
END 


onnnooooonnnoonooonrjrjnonooononoorsonoooonoooonnoonooonnnon 
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Of POOH QuA 1 -. -** 


SUBROUTINE SUNUP (ALT, TIME) 

Uses latitude, longitude, altitude, and day of year to conpute 
a sunrise and sunset tine for the sonde's present position. 

It then conpares the tine corresponding to the sensor's 
present position to the sunr ise/sunset tines to deternine 
whether the sensor is in day or night, and sets flag DAYNGT 
accordingly. Subroutine KMNTAB uses OAYNGT to apply the 
proper day or night Krunins' tenperature correction. 


CONSTANTS 

DTOR Degrees to radians conversion factor 

364. 242 Nunber of days in a year 
23.4430333 Earth's inclination in degrees 
279.9348 Factor for assynnetry due to ellipticity 
in conputing solar declination 
3600 Hours to seconds conversion factor 


DUMMY VARIABLES 

ALT Altitude in neters 

TIME Elapsed tine fron launch in seconds 


INTERNAL VARIABLES 

A The sunrise/sunset solar elevation angle (radians) 

COSD Cosine of the solar declination angle 
D Day of the year in radians 

SIND Sine of the solar declination angle 
H Solar hour angle (in decinal hours), (this is also 

the nunber of hours in half a "day") 

IYR Year of launch decoded fron header 

MONTH Month of launch decoded fron header 
MTHDAY Launch day of nonth decoded fron header 
SNOON The tine (in decinal hours) of neridian passage 
or true solar noon. 

TIMNOW Tine corresponding to altitude of sensor (GMT 
in seconds) ♦ 

TSR Tine of sunrise (GMT in seconds). 

TSS Tine of sunset (GMT in seconds). 

TWODEE Two tines the day of the year in seconds 
XPHI Angle (in radians) which takes into account the 

ellipticity of the earth. 


COMMON VARIABLES 

DAYNGT Flag that indicates whether sensor is in day 
or night. Values. l.=day, -l.«night 
HEADER 14 character launch operation label 
TZERO Launch tine (GMT in seconds) 

XLAT Geodetic latitude of launch site in degrees 
XLONG Geodetic longitude of launch site in degrees 


CALLED BY - KMNTAB 


FUNCTIONS CALLED - ZSIN, ZCOS 
COMMENTS 

1. Date of launch nust start at character 15 of HEADER 
and be in forn YYMMDD. 

2. Longitude XLONG is in degrees counted positive 


noo p° onn p» nno ooo c* noo noooorjnraooooono 
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west of Greenwich. 

3. All formulas for this routine were derived from 
NASA's Technical Memorandum TM-X-1646 

CHANGES 

Identical' to METROC-K version eitcept! 

1 . Changed variable DAYMNTH to MTHOAY to make it integer* 
and variable M to SNOON to make it real* 

Uariaple DAYEAR is real instead of integer. 

2. Used ENCODE statement to help decode HEADER 

3. Changed the two values of flag DAYNGT to 1 . =day, _-l ,=night 

4. Added temporary variable TWODEE 

5. Used functions ZSIN and ZCOS because SIN and COS cannot 
take negative arguments. 

SS83SSSSS?SSrJ5S8SSSSSS= = S»SSSiBSSSSS = S=SSSSSSSSSSSSS=SSSSSSSSSSS 

INCLUDE 'RCOMMON.SAJ 1 ' 

DIMENSION DAYEAR (12) 

INITIALIZE 

DATA DAYEAR /0 . , 31 . , 59 . * 90 . , 120 . , 151 . * 

181. ,212. ,243. *273. ,30-1. *334./ 

DATA DTOR/ . 01745329/ 

CALCULATE DAY OF YEAR 

ENCODE 2000, HEADER 

DECODE 1000, NYR, MONTH, MTHDAY 

DAYNGT = 1. 

D = DAYEAR < MONTH) + MTHDAY - 1 

IF ( ( MONTH . GT • 2 ) .AND. (M0D(NYR,4) .EG. 0) ) D = D + 1.0 
D = ( D * 360. / 365.242 ) * DTOR 

COMPUTE SOLAR HOUR ANGLE 

TWODEE = 2.* D 

XPHI = (279.9348 + D/STOR + 1 .914827*ZSIN(D> - 0 , 079525*ZCOS ( D ) 

+ 0.019938 * ZSIN (TWODEE) - 0.001620 * ZCOS(TWODEE) ) * DTOR 
SIND - 23 . 44383333*DT0R 
SIND * ZSIN ( SIND ) * ZSIN(XPHI) 

SIND - 1. - ABS ( SIND ) **2« 

COSO = SORT (SIND) 

AA = (-1.76459 * ( (ALT/1000 .)**. 40795) ) * DTOR 

BE: = (ZSIN(AA) - ZSIN(XLAT) * SIND )/ (ZCOS (XLAT)*C0SD) 

IB = BB 

IF (IB) 9,5,10 
5 H = (ACOS(BB) )/(15.*DT0R) 

COMPUTE TRUE SOLAR NOON 

SNOON = 12. + 0.123570 * ZSIN(D) - 0.004289 * ZCOS(D) 

+ 0.153809 * ZSIN ( TWODEE ) + 0.060783 * ZCOS(TWODEE) 

TIMNOW = TZERO + TIME 


DETERMINE IF DATA OBTAINED IN LIGHT OR DARKNESS 

TSR * ( XLQNG/ (15. #DTQR) + SNOON - H) * 3600. 

TSS = ( XLONG/ ( 15 «*DTOR ) + SNOON + H) * 3600. 
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o RK3!rc?.L 
OF POOR QiJALiT:*' 

IF (TIMNOW .LT. TSR .AND. TIMNOW .GT. TSS-86400.) DAYNGT 
IF ( TIMNOW .GT. TSS .AND. TIMNOW .LT. TSR+8640 0 . ) DAYNGT 
9 CONTINUE 
RETURN 
10 CONTINUE 

DAYNGT * -1. 

RETURN 

1000 FORMAT <14X, 312, 64X) 

2000 FORMAT < 1AA6 ) 

END 


xonnooooooooooooooonooonnoooooooonooo 
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Ot* 


PURPOSE 

Exchanges the 13 smoothed temperature and position 
variables generated by DIRSIT with the values stored 
in array SCOPY. 

DUMMY VARIABLES 

SCOPY (13) contains previous values of the 13 temperature 
and position variables below in the order 
listed. 

SCOPY (1)=TIME ... SCOPY ( 13 )=TEMPDD 
COMMON VARIABLES 

TIME time after launch of present data point <s) 

XS smoothed east coordinate <m> 

YS smoothed north coordinate (m> 

ZS smoothed altitude (m) 

TEMP smoothed sensor temperature <K) 

XD east velocity component (m/s) 

YD north velocity component (m/s) 

ZD upward velocity component (m/s) 

TEMPD first derivative of sensor temperature (K/s) 

XDD east acceleration component (m/s**2) 

YDD north acceleration component (m/s**2) 

ZDD upward acceleration component (m/s**2) 

TEMPDD second derivative of sensor temperature (K/s**2) 

INTERNAL VARIABLES 

SAV temporary storage 

SUBROUTINES CALLED - NONE 

CALLING SUBROUTINES - DRIVR1 

LAST CHANGE 12/6/82 


INCLUDE ' RCOMMON . SA 11' 

SAV = TIME 
TIME = SCOPY < 1 > 

SCOPY ( 1 ) - SAV 
SAV = XS 
XS = SCOPY (2) 

SCOPY ( 2 ) = SAV 
SAV = YS 
YS * SCOPY ( 3 ) 

SCOPY ( 3 ) = SAV 
SAV = ZS 
ZS = SCOPY (4) 

SCOPY (4) * SAV 
SAV = TEMP 
TEMP = SCOPY (S) 

SCOPY (5) = SAV 
SAV = XD 
XD = SCOPY ( o > 

SCOPY ( 6 ) = SAV 


002 SWAP .sa:i 

SAV = YD 
YD = SCOPY ( 7 ) 

SCQF'Y ( 7 ) = SAV 
SAV = ZD 
ZD * SC0PY<8) 

SCOPY (8> * SAW 
SAV a TEMPD 
TEMPO = SCOPY (9) 
SCOPY < 9 ) = SAV 
SAV = XDD 
XDD = SCOPY (10) 
SCOPY (10) - SAV 
SAW = YDD 
YDD = SCOPY (11) 
SCOPY (11) = SAV 
SAV * ZDD 
ZDD = SCOPY (12) 
SCOPY ( 12 ) = SAV 
SAV = TEMPDD 
TEMPDD = SCOPY (13) 
SCOPY (13)= SAV 
END 


nonoonooonoooooooooooooonooononrjonooooooonooonnnnnnnoo 


PAGE 001 TIMCHK 


sa:i 


ORlGfNAL ?AGE IS 
OF POOR QUALITY 


SUBROUTINE TIk JHK < DSTOR , NW , NERR > 


PURPOSE 

Checks for errors in successive tine values of raw data* 
Corrects the tine of * he point in error if there are less 
than a maximum numb of errors in the given set of points* 
When the Maximum is xceeded, the program aborts* 

DUMMY VARIABLES 

DSTOR(5,10) tenth second raw data record. 

DSTOR <l,j) time in GMT seconds 
NW number of raw data points in DSTOR to be checked 

for time errors* (NW=5 for first call to TIMCHK, 
NW-1 0 thereafter) 

NERR maximum number of time errors allowed before 

program stops 

INTERNAL VARIABLES 

DELT difference in time value between two successive 

raw data points 

IDSTOR temporary storage for time, used to truncate 

to the tenths place. 

IERFG error counter* If DELT < .5 or DELT > 1,5 

the counter is incremented* 

JL index of raw data points 

COMMON VARIABLES 

101 Output device number for informative messages 

Possible Values* 

99 Dummy device* No output occurs 

101 Terminal display screen 

102 Printer 

CALLED BY - EDIT 
TERMINATION CONDITIONS 

If number of time errors during current call is greater 
than NERR* error message is printed and program stops 

COMMENTS 

A single raw data point which is merely missing, 
rather than wrong, will cause a chain reaction which 
will abort the program* 

CHANGES 

This subroutine differs from the METROC-K version! 

1. A11 references to radar time were eliminated, 
since radar time is not present 

2. The parameter NERR was added because eliminating radar 
may require changes in the error limit 

3. Printing the error message and terminating are done 
directly by TIMCHK rather than by ERROR* 

COMPILED 6/25/83 


INCLUDE ' RCOMMON .SAJI' 
DIMENSION DSTOR (5,10) 
IERFG = 0 


;*» P» 
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1 

1000 


OF POOR 


j';' ,£• t i 

V 1 


TY 


DO 1 JL=2 t NW 

DELT = DSTOR( 1 » JL) - DSTOR(l,JL 
IF (DELT. GT.. 15 .OR. 

DELT. LT.. 05) THEN 
IERFG = IERFG + 1 
IF < IERFG . GT • NERR > THEN 

WRITE (101 , 1000 ) NERR, DSTOR( 
STOP 
END IF 

DSTOR ( JK , JL ) = DSTOR ( JK , JL-1 ) + 
IDSTOR = ( DSTOR < JK, JL > + .05) * 
DSTOR <JK,JL) - IDSTOR / 10. 

END IF 
CONTINUE 

FORMAT ('*** ERROR IN TIMCHK ' / 


1) {difference should be .1 sec 
{if difference is out of 
{ normal range, 

{increment error counter 
{if too many errors in this set 
*JK> {print error message 
{and abort 

.1 {otherwise, correct error 

10 . 


' MORE THAN ',12,' TIME ERRORS V 
'LAST TIME CHECKED = ' ,F8.3,' SECONDS') 


END 
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OF rC' -iv it; 


SUBROUTINE TMPFIT < IDRSIT , TIN , T , TOUT , TXOUT , TVOUT , TAOUT , ICNTT , LTHT , 

& I3LIDE) 

C 

C xxxxxxx ********************** xxxxxx xxxxxxx xx xxxxxxx xxxxxx xxxxxxx ********* 
C 

C THIS SUBROUTINE USES A LINEAR FIT FOR THE TEMPERATURE, BUT IT 

C USES A QUADRATIC FIT FOR THE FIRST AND SECOND DERIVATIVES. 

C THE PI AND PZ ARRAYS MUST BE DIMENSIONED AT LEAST ?LTHT? , WHILE 

C THE TEMP AND TIME ARRAYS MUST BE DIMENSIONED BY AT LEAST ?<LTHT + 

C NSKIP ) ? < NS KIP IS DEFINED IN SUBROUTINE DIRSIT) . 

C 

Cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

DIMENSION TEMP < 1 0 0 ) , PI ( 1 0 0 > , P2 ( 1 0 0 > , TIME (10 0) 

GO TO (10,20,20,60) IDRSIT 
10 CONTINUE 
DELT-Q .5 
C 

C DEFINE TIME INCREMENT 
ITBAR* ( LTHT+i ) /2 
C 

C CALCULATE MIDPOINT OF SMOOTHING INTERVAL 
POSQR=LTHT 
C 

C INITIALIZE 
F‘1SQR = 0 . 0 
P2SQR=0 . 0 
C 

C CALCULATE THE COEFFICIENTS < ALONG WITH THE SUMS OF THEIR 
C SQUARES) TO BE USED IN THE QUADRATIC FIT FOR THE DERIVATIVES. 

DO 5 1=1 , LTHT 
P1(I)=I-ITBAR 

P2 ( I ) = < I-ITBAR ) xx2 - ( LTHT**2-1 ,0)/12,0 
P 1 S QR=P 1 S QR + P 1 ( I ) x x Z 
P2SQR=P2SQR+P2 < I ) x*2 
5 CONTINUE 
RETURN 
20 CONTINUE 
C 

C PUT RAW TEMPERATURE AND TIME IN THE 7TEMP? AND7TIME? ARRAYS (RESP) 

TEMP ( ICNTT )-T 
TIME ( ICNTT )=TIN 
RETURN 
60 CONTINUE 
C 

C PUT RAW TEMPERATURE AND TIME IN THE TEMP AND ARRAYS 
TEMP ( ICNTT )=T 
TIME < ICNTT )=TIN 
C 

C CALCULATE SUMS NECESSARY FOR THE FIT OF TEMPERATURE AND ITS 
C DERIVATIVES. 

P0XSM=0 . 0 
P1XSM=0 .0 
P2XSM=0 .0 
DO 80 1=1, LTHT 
POXSM=PQXSM+TEMP < I ) 

P 1XSM=P1 XSM+ < P 1 ( I ) xTEMP (I) ) 


> 

► 
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C 

C 


C 

C 

C 


C 

C 


F'2XSM=F'2XSM+ < P2 ( I > *TEMF' (I) > 
80 CONTINUE 


1 * * * : t •* ^ 

OF POOR QUALITY 


f. r, < 

S'*# 


CALCULATE SMOOTHED TEMPERATURE AND ITS DERIVATIVES « 
TXOUT=POXSM/F‘OSQR 
TV0UT=P1XSM/ ( DELT XF’ISQR ) 

T AOUT =2 . 0 *P2XSM/ ( P2SQF<*0ELT**2 ) 


SET ?T? AND ?TOUT? EQUAL TO THE RAW TEMPERATURE AND TIME (RESP) 
CORRESPONDING TO THE SMOOTHING INTERVAL MIDPOIN. 

T=TEMP<ITBAR> 

TOUT =TIME ( ITBAR ) 

SLIDE THE DATA IN THE TEMP AND TIME ARRAYS ♦ 

IA=ICNTT-ISLIDE 
DO 90 1*1, IA 
IC=I+ISLIDE 
TEMP ( I ) =TEMF* ( IC ) 

TIME ( I ) =TIME ( IC ) 

90 CONTINUE 
RETURN 
END 


o n n 
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c 

FUNCTION ZCOS(A) 

THE 6809 CANT TAKE COS OF A NEG * 

DUhMY=ABS(A) 

ZCOS=COS ( DUMMY ) 

RETURN 


norm 
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FUNCTION ZSIN < A ) 

THE 680? WILL N0 T TAKE THE SIN OF A NEG * 

THIS FUNCTION TAKES CARE OF THE PROBLEM 

IF (A .GE. 0.0) GOTO 10 

A = -A ..... 

ZSIN=SIN(A) 

ZSIN =-ZSIN rOLK 

RETURN 
10 ZSIN = SIN < A ) 

RETURN 
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COMMON 

A ( 3 » 3 ) 

COMMON 

ALTG 

COMMON 

Ei < 3 > 

COMMON 

BPRES(30) 

COMMON 

BT<5) 

COMMON 

E*.ThP<30> 

COMMON 

C < 3 ) 

COMMON 

Cl 

COMMON 

CC1 (60) 

COMMON 

CC2 (60 ) 

COMMON 

CC3 (60 ) 

COMMON 

CC4(60,2) 

COMMON 

CCZ ( 60 ) 

COMMON 

DAYNGT 

COMMON 

DFILE(5,6Q0 

COMMON 

DM (185) 

COMMON 

DMMY 

COMMON 

DMY < 183 ) 

COMMON 

DPP (30) 

COMMON 

DRTEMP(IOO) 

COMMON 

DRUM (10 0) 

COMMON 

DUM ( 184 > 

COMMON 

DUMMY (200) 

COMMON 

FCSOND ( 25 ) 

COMMON 

FRATIO 

COMMON 

FSKRID 

COMMON 

FSKT 

COMMON 

HEADER < 14) 

COMMON 

HGATE 

COMMON 

HRADAR 

COMMON 

ICAL 

COMMON 

IDENT 

COMMON 

IDFSK 

COMMON 

IDN 

COMMON 

IENT 

COMMON 

IFM 

COMMON 

IMODEL 

COMMON 

IOUT 

COMMON 

IRSKIP 

COMMON 

IWIND 

COMMON 

LALT (30 ) 

COMMON 

LDIR ( 30 ) 

COMMON 

LEV 

COMMON 

LSPD ( 30 ) 

COMMON 

NAVG 

COMMON 

NCBEAD 

COMMON 

NCSOND 

COMMON 

NKMN 

COMMON 

NKPT 

COMMON 

NOTEMP 

COMMON 

NPBL 

COMMON 

NTPT 

COMMON 

NX 1 MID 

COMMON 

PXYl(lOO) 

COMMON 

F’XY2( 10 0 ) 

COMMON 

RCBEADUO ) 

COMMON 

RCSOND ( 25 ) 

COMMON 

SCOPY ( 13 ) 
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COMMON 

SFR(IOO) 

COMMON 

SIGLEV 

COMMON 

STl(lOO) 

COMMON 

SXUilO) 

COMMON 

SY(IDO) 

COMMON 

SZ(IQO) 

COMMON 

TAPOG 

COMMON 

TCBEAD (10) 

COMMON 

TEMP 

COMMON 

TEMPO 

COMMON 

TEMPDD 

COMMON 

TIME 

COMMON 

TMID(SO) 

COMMON 

TMPTRS (1150) 

COMMON 

TSTART 

COMMON 

TSTOP 

COMMON 

TZERO 

COMMON 

U < 3 , 3 ) 

COMMON 

XD 

COMMON 

XDD 

COMMON 

XLAT 

COMMON 

XLONG 

COMMON 

XMID < 50 ) 

COMMON 

XS 

COMMON 

XVMfSO) 

COMMON 

YD 

COMMON 

YDD 

COMMON 

YMID<50) 

COMMON 

YS 

COMMON 

YVM<50) 

COMMON 

ZAPOG 

COMMON 

ZD 

COMMON 

ZDD 

COMMON 

ZMID ( 50 ) 

COMMON 

ZS 

COMMON 

ZXM<50> 


OF POOK QUALITY 


